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Elettronica, nuova rivoluzione industriale 

































sto l'accento sulla necessità di c24 
un organo nazionale della 
zione presso il ministagy 
provveda al riasss 


MILANO — Nelle fabbriche del mando chiamarsi fuori. E' un concetto che l’am- 

Jndusidalizzato si perdono ogni settima: ministratore delegato dell’Olivetti, Car- 

: 50 mila ai cento osti lo De Benedetti, ha ieri ribadito a chiare 

. Questo continuo collasso è dovu- leptere: «Ci troviamo di fronte a un fatto- 

j Ì re ‘orizzontale’ di produzione destinato 

che fa sentire | suoi effetti un po' dovun- | ad interessare e intervenire in tutti i 

que. 1_.reapongabile» principale dell’i- | settori industriali e non industriali, 
narrestabile stillicidio onte occupa- | orientandone l'evoluzione: affrontare 

zionale si chiama progresso. La rivolu- | problema dell'elettronica italiana_gi 


e- 
‘gli anni Ottanta, sta sovvertendo | diffi- 
FA equi raggiunti nel periodo più | ma produttivo». 
caldo «boom» industriale. Fino a che 


punto computer e robot prenderanno il 
to della manodopera, fino a che livel- 

o le società più progredite riusciranno a 
«digerire» macchine sempre più sofsig 
cate èd automatizzate? Sono, Quag 

| terrogutlvi di fondamentale 
che solo adesso l'Italicg 
cia a porsi. pe 
Gli stessi = 
to 5010 





Wiche pariato del con- 
e nel partito in questa 


EDporti con gli altri partiti della. coali- 
zione, Colombo ha aggiunto: «Non ci fa 
paura Craxi e ll.suo soclalismo: lu rite- 
niamo con noi portatore di libertà e 
democrazia. Con questo socialismo e con 
il polo laico vogliamo confrontarci e col- 
‘ laborare nell'interesse del Paese». 


:. Giangazlo Mazzuca 
° Ù 


ME zione elettronica è in 
Ortare, Michele Principe, am- 
Btratore delegato della Stet, ha po- 








A 4 e Da questa rivoluzione nel ruolo tra l’uo- 
\ I ÒÙ ( | si moelamacchinasipuòricavare un nuovo, 


importantissimo ruolo per l'insegnante. Il 
quale diventa un osservatore privilegiato 
delle esperiénze del bambino. 

PA 04 È E soprattutto diventa un consulente del 
bambino: colui che guida e dà all'allievo i 
consigli sulla maniera più saggia di orga- 


L'insegnante che osserva, consiglia e 
pianifica 


i | nizzarsi e di procedere per raggiungere i 
0) propri obiettivi, anziché insegnare tra- 
° smettendo in modo meccanico le indica- 

zioni sulle azioni da fare. 

AI tempo stesso il LOGO è un mondo 
che può essere esplorato soltanto un pezzo 
per volta. L'insegnante diventa quindi la 
persona più adatta a pianificare questa 
esplorazione, in maniera da renderla siste- 
matica e proficua per l'apprendimento. 





DUE CHIACCHIERE E POI... VIA SULLA TASTIERA 
Erre en: 


Ho iniziato scambiando qualche informazione con un inserzionista 
su non ricordo quale rivista. Ci scambiammo notizie,informazioni 
qualche programma. Dopo solo un mese ricevevo e rispondevo a una 
lettera al giorno. OGGI SIETE 2400, fra non molto arriverete a 
10.000, un intero paese, una montagna di lettere al giorno e te= 
lefonate di ogni genere ogni 10 minuti da tutta Italia. 


Ricordatevi sempre che sono solo! Mi devo destreggiare a rispon= 
dervi a tutti a tempo di record, scrivere e stampare una rivista 
che sembra abbia oro colato dentro, curare la messa a punto di 
quasi ormai 4000/5000 programmi» 


Una iniziativa la mia che ha fatto ricredere molti pessimisti, 
nonostante la inarrestabile valanga di computer che in pochi mesi 
è andata a sommergere l'intero paese. Un fenomeno esploso in ogni 
ambiente, in ogni località e che ha investito sopratutto i giova= 
nissimi. 


Nell'ottobre scorso nella mia rivista iniziavo con un titolo che 
oggi mi da pienamente la patente di chiaroveggente. Il titolo era 
"non so cosa succederà entro 5 minuti". E' successo! Nonostante 
il "alto" si ignori come insegnamento didattico l'informatica. 


Questa esplosione e questa mancanza di informazioni negli ambienti 
che invece dovrebbero fornirle ha fatto si che mi si riversassero 
valanghe di lettere nella mia tabaccheria ormai diventata campo 
di battaglia. Curioso e insolito avamposto di una Bit-Rivoluzione. 


Ho risposto a tutti, ho incoraggiato tutti, ho cercato nel limite 
delle mie possibilità di insegnare quanto sapevo. 


Un giornalista sul giornale locale mi ha denominato " apostolo del 
Basic". Non poteva farmi cosa più gradita. I fili che vado tessen= 
do fra di voi mettendovi in contatto l'uno con l'altro sono ormai 
migliaia.Le linee di programma che avete fatto per me per poter 
scambiarle con altre sono ormai milioni. 


Non mi sono mai sentito così gratificato. Che il computer mi avrebbe 
permesso di dare del "tu" a migliaia di persone che non ho mai cono= 
sciuto e incontrate questo non lo avrei mai imaginato. Altro che 
macchine disumanizzanti. Non ho mai avuto tanti amici così. +!!! 

In cuesto caleidoscopico mosaico non mi sfuggono però certi feno= 
meni. Su quasi 2400 nomi ve ne sono solo 3 di sesso femminile. 

Cosa mai sta succedendo?!.Non basta,sempre su 2400 ben 1800 sono 
del Sud,con programmi molto validi nel settore scientifico,profes= 
sionale,didattico. Insomma sembra che nel Sud ci stiano dando den= 


tro a tutto Bit. ( Sociologi avanti !) 


Ultimamente mi sono giunte lettere e telefonate quasi drammatiche 
per le brutte notizie sulla sorte del nostro TI 99. Qualche ne= 
goziante per poter far fuori certi trabiccoli che aveva in casa 
andava dicendo che la Texas era fallita» E che i suoi computer 
non bisognava acquistarli* Povero bottegaio se deve ricorrere 

a questi mezzi! 


Carissimi amici la Texas ha abbandonata la produzione dell'Home 
solo perchè ( e ce ne accorgiamo anche solo due tre mesi dopo 
anche noi) ormai anche i ragazzini hanno bisogno di computer da 
un centinaio di K, anche i ragazzini sanno che viaggiare con i 
Floppy è un altra cosa, che non basta più il Basic ma serve lo 
Assembler. Noi in Italia abbiamo scoperto il computer sì e no 


sei mesi fa. In America già nel '78 si vendevano nei supermercati. 


In Giappone nei colossali Show Room l'età media dei migliaia di 
frequentatori è di 14 anni. Bambini di 12 anni che pestano tasti 
di macchine di 2 Mega di Ram, che usano dischi da 20 , che fanno 
funzionare Plotter,Modem, Stampanti a tutto spiano. 


In Italia ? 2500 persone si sono rivolti a un povero tabaccaio 
per ricevere e sapere qualcosa. Istituzioni Pubbliche? Latitanti- 
Incoraggiamenti ? Meglio tacere» Non basta la passione cari miei, 
l'esperienza di 10 anni, per vendere un computer a un ragazzino 
devi possedere la licenza 13 cioè "macchine d'ufficio". Solo 
quando si capirà in certi ambienti che un computer non è una mac= 
china d'ufficio l'informatica in Italia decollerà. 


Nel frattempo ragazzi facciamoci le ossa, siamo entrati nello 
"ambiente" e abbiamo incominciat® a capire su queste utilitarie 
che si può “imparare a pensare", in silenzio e in un luogo insoli= 
to ci stiamo preparando ad entrare in punta di piedi in questa ri= 
voluzione culturale che coinvolgerà l'intero sistema dove nessuno 
puo chiamarsi fuori. 

orse tra due tre anni rideremo di come abbiamo iniziato. La tabac= 
cheria sarà un triste ricordo da una parte, dall'altra vorrà signi= 
ficare pionierismo, volontà, intelligente adattamento, visto il 
vuoto che ci circondava. 


Con il Texas TI 99 andiamo avanti, ma già in embrione c'è la mia 
nuova grande iniziativa. Un intero ambiente dedicato ai computer 
piccoli e grandi. Nella tabaccheria non ci si sta più, Inoltre è 
diventato un laboratorio ( fra mille difficoltà burocratiche e in= 
vidie di certi venditori di elettrodomestici). 


Qui sono confluite tutte le vostre 7/8000 lettere, tutti i vostri 
programmi, le vostre numerose visite da ogni città d'Italia.(che 
piacere incontrarsi dopo averci scritto e telefonatoci 5/10 volte!) 


Nella nuova sede si continuerà su questa strada, rapporti amichevoli 
risposte ai mille quesiti, scambio di programmi piccoli e grandi, 
reciproco travaso di esperienze per vivere questa bellissima avven= 
tura. 

Mi affiancherà e ne prenderà le redini ( dato che cari miei mi 
avete messo in mille imbarazzi con le vostre domande tecniche 

non sono mica il mago del computer io !!) il carissimo amico 

Dr Grillo Giuliano, un nome molto noto negli- ambienti, un infa= 
ticabile promotore dell'informatica in Italia. 

Undici anni fa (dico 11) primo dottore in Informatica usciva dalla 
Università di Pisa. Questo. significa che a quell'epoca, ma anche 
solo tre mesi fa, molti che vendono computer oggi si e no vendeva= 
no caffettiere, tostapani, frullatori. 


Se non ci sono ritardi e impedimenti burocratici e amministrativi 
( l'amministrazione è lenta e certe volte si fa molta molta diffi= 
coltà a far capire che bisogna fare in fretta su queste cose ) 
apriremo nella prima Bomenica di Aprile. 

Siete tutti naturalmente invitati !!! 

Non ci sarà solo Texas.. ma tutti i migliori Computer in funzione 
da 1 K fino a quelli da 2000. In funzione per voi e li vostri aml= 
ci per capire, vedere, fare. Come abbiamo fatto fin'ora, onde cam= 


minare speditamente verso questi " laboratori della conoscenza" 
che sono i computer, verso questa nuova " filosofia educativa". 
a presto 


d 


In concomitanza con l'inaugurazione dello 


SHOW ROOM COMPUTER 


A VICENZA 


FRANGOMPUTER 


Portici CORSO FOGAZZARO 


COMPUTER E SISTEMI INFORMATICI 
PROFESSIONALI - AZIENDALI - DIDATTICI - HOBBY 


LANCERA 


la RASSEGNA NAZIONALE 
LAVORI SU HOME/PERSONAL COMPUTER 
( Didattica, Utility, Giochi ) 


Premi per oltre 5 milioni offerti da Enti, 
Industrie, Associazioni e Privati. 


Certificazione dei lavori presentati ed 
eventuale commercializzazione degli stessi. 


Date, regolamento del Concorso, verranno inviate a tutti i 
richiedenti. Salvo imprevisti, la manifestazione culminerà 
nei 3 Stand della FRANCOMPUTER alla 


FIERA DELLAELETTRONICA E TELECOMUNICAZIONI 
di VICENZA 
( Novembre 1984 ) 


Fra non molto sarete 10.000. Soci conto su di voi 
tutti per farla ventare una manifestazione nazionale di 
successo con enorme importanza culturale. 


Rimanete tutti in contatto! Sopratutto i sgobboni* Avrò 
molto bisogno di loro, del loro aiuto, dei loro suggerimenti, 
consigli, dei loro lavori, della loro fiducia. 
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ENTI, ASSOCIAZIONI, INDUSTRIE E PRIVATI CHE VOGLIONO PATROCI= 
NARE E DARE COLLABORAZIONE ALLA MANIFESTAZIONE SI FACCIANO 
AVANTI CON PREMI, BORSE DI STUDIO, APPOGGIO MORALE. GRAZIE! 
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Uirimo misto: IL AL 99. STA Wai Primo 
‘baldo ALE STELLE! | yi — 
FINALMENTE RUALCUNO HA caorto | 

Non E° Un Vineocioco, CHIEDESELO 

A CHI FA ELEASAONICA VERA! 


10 NO pa ceccer..Sì 


Non svendete il Vs computer»: Trattatelo bene. E' stato il 
vostro primo computer: Vi do inoltre una grande bella 
notizia. Forse lo potete permutare da NOI per acquistare 
o il NUOVO Computer Texas o il NUOVO Computer IBM. Sono 
due MeTsvistierimevrassio cre msramme=pIezmespottta di 
tutti i trabiccoli in giro. E come al solito seguiremo 
molto sia l'hardware che il software. 





Non ascoltate le chiacchere di bottegai senza scrupoli. A 
costoro il nuòvo Texas o il nuovo IBM non arriveranno 
mai. Non basterà infilare la presa alla corrente e farvi 
vedere quattro stupidaggini sul video. Voi sarete molto 
molto più avanti di loro e inoltre avrete le idee chiare. 


Non perdiamoci di vista* Mantenete i contatti con il Club. 
Ho grosse sorprese per tutti. Fra poco saremo 10.000.Una 
forza non indifferente a livello di potenziali clienti. 
Una unione che può dettare condizioni, ottenere agevola= 
zioni, assistenza e servizio di postvendita da qualsiasi 
ditta, 


Non scriveteci lettere con cento domande. Mettendole da 
parte per rispondervi con più calma e tempo, rischio alla 
fine di non farlo o di farlo con grande ritardo. 


Non inviatemi già i soldi della rivista N.4. Questa la stam= 
però quando ho materiale e tempo disponibile. Sarò io ad 
avvisarvi quando è pronta. 


Non mettete i soldi nelle buste. fate sempre un vaglia o 
mettete francobolli di grosso taglio (500/1000). Inoltre 
scrivete il mittente. Molti ci inviano soldi e vaglia e non 
si firmano neppure. Poi ci telefonano impazienti e arrabbiati. 


Non richiedetemi il Notiziario-rivista N. 1 e 2. Non li ris= 
tampiamo più. Ci vuole tempo ragazzi. Per le enormi richies= 
te della N.2 sono andato avanti per tre mesi a fare sempre 
la stessa» Ne ho perfino la nausea della N.2. 


Non temete che io smetta. Abbiamo appena incominciato a lavo= 
rare. La vitalità del club siete VOI. Ogni notizia, program= 
ma, esperienza pervenuta da UNO, viene come vedete messa a 
disposizione di TUTII. Così facendo ci guadagnamo tutti in 
conoscenze per camminare in fretta onde recuperare tanto 
tanto tempo perduto. 

Siamo agli inizi e solo coloro che si organizzeranno come 
abbiamo fatto con questo piccolo Home potranno INCOMINCIARE 
A CAPIRE. Un proverbio molto antico, cinese è ormai il 
motto di tutti i computeristi del mondo. " SE ASCOLTO DIMEN= 
TICO, SE VEDO RICORDO, SE FACCIO CAPISCO". Nessuna altra 
alternativa per utilizzare un computer. NESSUNA.! 


Non ho finito. La mia raccomandazione è .rileggere il 
primo NO. 


Cos iL 9900! 


PICCOLI TRUCCHI NELLA PROGRAMMAZIONE 


BATTERE 5 o 6 RIGHE Molti copiando programmi da listati non 
riescono a capire come si faccia a scrivere oltre la quarta 
riga. 

Se ne possono fare 5 nella PRINT e 6 nei DATA, 

Nella "print" nella penultima lettera mettete due punti ( : ) 
poi chiudete con ( " ) e fate enter. 


Nei DATA l'ultima lettera deve essere i due punti ( : ). 
RICHIAMATE LA RIGA CON L'EDIT, PORTATE IL CURSORE SUI DUE 
PUNTI E CONTINUATE TRANQUILLAMFNTE A BATTERE ALTRE 28 LETTERE, 






L'EDIT: Sul Manuale non si accenna alla forma più semplice e 
| banale. Per richiamare una riga battete il numero corrispon= 
dente e schiacciate contemporaneamente FCTN e la lettera X o E 


OLD CS1; 0 meglio, non riesco a richiamare un tuo programma sul 
mlo computer. Attenzione quando ricevete o avete fatto anche 
voi un programma molto lungo ( oltre 10/12 K o meno ma però 
con DIM molto alte) spegnete il computer prima di caricarlo. 
Se non fate così, quando fate il Run vi troverete continuamen= 
te con"error in Next N, "dove invece di errori non ve ne sono. 
Molte volte non riuscite fin dall'inizio a caricarlo. 


Non parliamopoi quando tentate di far eseguire un programma 
quando il BOX ( chi ce l'ha) è acceso. La gestione del BOX 
vi porta via ben 7 K al vostro computer. Solo se spegnete il 
BOX potete caricare un programma di 16 K. 









> { IR) 3 NTE . fate un programmino 
i Print.* Definite un carattere usando i codici dal 
127 al 159. Fate NEW. Sparito tutto? NO! Ora fate il vero pro= 
gramma e al momento di usare i caratteri definiti fate prima 
RUN poi richiamate il listato e ora battete con il tasto CNTR 
abbassato i corrispondenti codici caratteri. Eccovi apparire 
nuovamente le sagome che avete definito nei rispettivi caratteri. 
Ricordate che potete definire dei caratteri e metterli in memo= 
ria su Tape. Quando li richiamate non dimenticate di fare pri= 
ma il RUN poi iniziare il vostro programma. (* Ann GiNlA nUmsi Linfa) 









MEMORIA ancora disponibile : Ognuno di noi vorrebbe sapere 
cuanta memoria ha ancora disponibile. 6 mesi fa vi avevo accenna= 
to come si fa. Le domande dei neofiti sono ancora tante. Mi ri= 
peto. Digitate 1 X=X + 

2 GOSUB 1 fate enter poi RUN. Aspettate 
alcuni secondi e vedrete apparire MEMORY FULL IN l. Digitate 
ora PRINT x. Il numero che apparirà sullo schermo corrisponde 
al numero di byte di memoria ancora disponibile. 
Se avete usata la variabile X nel programma sostituitela con un 
altra libera. Così anche se avete già iniziato il programma con 
il N. ldi linea» Risequenziate per avere liberi 1 e 2. 








Qualcuno mi ha fatto notare che c'è un metodo ancora più preci= 
so.Lo sapevo! Quando chiedo quanti chilometri mancano per arri= 
vare a Roma importante è che mi dicono i chilometri e non i metri 

i centimetri e i millimetri. Non mi era sembrato il caso che doves= 


si specificare anche gli ottavi di byte. |: { 
A 


NUMERI, NUMERI, E ANCORA NUMERI il 
CHE PROGRAMMA SARA' MAI? FORSE 
INGEGNERIA, FISICA, MATEMATICA ? 








i REM AEKFKEELELETEVENTETKKA 
2 REM + * BATTETE QUESTO PROGRAMMA E SCOo= 
3 REM * PAOLO CANERO è» PRIRETE COSA SIT PUO' FARE CON I 
4 REM è* * DATA, I NUMERI, I BYTE DI UN 
S REM * 23/9/1993 * “ COMPUTER " insomma non tutto 
6 REM x» * è Perduto... resesese. 
7 REM + SCHERZI DI DATA * gg 
8 REM »* * 
9 REM DE IE DE AE AE EINE DE EAT 
10 REM UN ONORE PRESENTARLO DAL FRANCOMFUTER ] CLUB 
TI 99 4/A VICENZA pe 


100 CALL CLEAR 

110 DATA 84,101,32,108,111,32,114,105,112,101,116,111,32,t15,1il1,1{6,{16,111,118 
111,99, 101, 32,32, 32,32 

120 DATA 97,109, 111,32, 105, 1089, 32, 112,114, 101,115, 101, 110,116, 101,32,32, 52,32, 32 

9032, 30/3232,30 

1350 DATA 99,111,110,111,115,99,111,32,105,108,32,112,97, 115, 115,97, 116,111,32,32 

32, 52/32,32,32, 52 

140 DATA 110,11il, RA di alla iii ii e ia 
, 100,105, 32, 32, 32, 32,32 

150 DATA 110, 111,110, La 101,109,111,352,108,101,32,109,105,101,32,99, 101,114, 

116, 101, 122,122,101,32,32 

160 DATA i110,111,110,32,199,105,32,112,105,101,103,111,32,97,108,108,101,32,99,1 

11,114,114,101,110,116,105 

170 DATA 115,111,114,114,105,100,111,32,97,108,108,39,195,199,112,114,101,118,10 

Sy il5, 116, 111,32,32,32,32 

‘180 DATA 110, 111, 110,32,114,105,102,117,1035,105,111,32,100,97,108,108,97,32,115, 

112,114, 101, 103, 105,117, 45 

Da DATA 32,32,32, 324 32, 32, 32, 32, 324 2, 37432, DE 4 32432, 32,32, 100, 105, 97,97, 116,10 
1,122,122,97 i 

‘200 DATA 110,111, 110,32,100,105, 115,116, 114,117, 1035, 1035, 111y32,105,32, 109, 105,10 

1,105,32,112,101,110,45 

:210 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 n 32, SL 4 SR La o, 1 

05,4101,414, 105 

.220 DATA 110,111,110,32,99,97,109,99,111,108,111,32,109,101,32,115,116,97,103,10 

5,111,110,105, 32,32, 32 

2350 DATA 110,111,110,352,105,110,103,97,110, 110, 111,32,97,110,99,104, 101,52, 105,3 

29400, 117,98,98, 105,32 

240 DATA 110, Ii, 110,32,109,105,352,111,}19,116,105, 110, 111,32,97,109,32,114,195, 

109,112,105,97, 110, 116,111 

250 DATA 115,111,110,111,32,99,117,114,105,111,115,111,32,100,105,32,108,117,99, 

101,32,110,117,111,118,97 

260 DATA 193,111,100,111,32,100,101,108,32,102,117,116, 117,114, 111,32, 32,32, 32,3 


3,3233532, 32,52,52 


"279 DATA 99,101,114,99,111,352,100,105,32,99,97,112, 105,114, 101,32, 32,32, 352,52, 32 
a SL, 32, 32, 32,32 
280 DATA 105, 110,99, 105,97, 109, 112,111,32,110,101, 103,108, 195,32, 101,114, 114,111 
a 114, 105, 32, 32, 32,4 32, A2 
290 DATA 110, 111,110, 52,99,97, 110,99, 101,108,108,111,32,105, 32,112, 111,1089,105,5 
2,109, 111, 114, 116,101, 45 
300 DATA 32,32,52,32,32:32,35232,32;32,32,32,32, 32,32, 32:32 32,32, 32,32, 32,118 1 
05, 116,97 
310 DATA 65,1089,116,114,105,109, 101, 110, 116, 105, 32,32, 32,32, 32, 32,32, 32,4 32, 32,32 
932,52, 32,32, 52 
320 DATA 99,111,199,101,32,112,1i1,116,114,101,109,109,111,352,99,97,110, 116,97,1 
14,101,32,97, 115,45,32 
3350 DATA SERA AR RE RE INS 32,32,115,105, 101 
,109,101, 
340 DATA 35,109, 11, 114,101,32, 100, 105, 32, 109, 105,108, 108, 101,32,99,111,109,108, 
105, 110, 101, 44,32,32,32 
345 DATA 32,32,32,32, 32, 32, 32,32, 32,352,32, 32, 32,32,32, 32, 32,32,32,32,352,52,32,32 


qlla 


- n n 3 - D 7 " î 9 =" n n Cri % mm T - z " = ri 
346 DATA 32,352,52,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 


mo = 

day de 

sonia co o Mi 

L site, c-n E: TA 79 75) n + = = LI “n Tn "N 7 qa 2 2 20 79 7 7 
347 DATA day dt, 52,32, 32,32,32, 32,32, 352,32,32,32,32,32,32,32,32,32,32,32,32,32,3 
32.32 

N° Srcig n 


c, ina 2 
Li pg Sg dig e 


dg dig 


- 


350 DATA 67,72,69,32,69,79,77,65,78,73,32,69,39,32,64,69,76,76,79,32,63,32,32,32 


,32,32 


360 

370 

580 

390 

900 

9210 

920 

1000 
1010 
1020 
10350 
1040 
1050 
1060 
1070 
1080 
1090 
1095 
1190 
1110 
1120 
1150 
1155 
1140 
1150 
1170 
1180 
1190 
1200 
1210 
1220 
1250 
1240 
1250 
1260 
1270 
1290 
1290 
1300 
1301 
1502 
13035 
13504 
1505 
1510 
13520 
1350 
1335 
1540 
1550 
1560 
1370 


32 
DATA 34,68,111,109,97,110,105,32,69,39,32,66,101,108,108, 111,34 
DATA 32,40,78,111,118,101,109,98,114,101,32,49,57,56,49,41,32 
DATA 84,111,100,97,114,105,97,110,97,32,69,100,105,116,111,114,101 
FOR I=1 TO 12 
CALL COLOR(I,16,7) 
NEXT I 


DATA 523,32, 102, 46,32, 112, 105,99,99,105,110, 101,108, 108, 105,32 sa 


gn 





FRANCO GONZATO "CONGIUNZIONE o DIVISIONE ‘2% 


[Esposizione Artisti Italiani a New York al= 
la Benedetti Art. Empire State Building-1978 


J=i 
FOR I 
FOR J 
READ X 

CALL HEHAR(I,J,X) 
NEXT J 

NEXT I 

FOR I=1 TO 500 

NEXT I 

CALL CLEGR 

FOR I=8 TO 15 

FOR J=3 TO 28 

READ X 

CALL HCHARCI,J,X) 
NEXT J 

NEXT I 

FOR I=l TO 1000 

NEXT I 

FOR I=20 TO 23 

FOR J=12 TO 29 

READ X : 

CALL HEHAR(I,J,X) 
NEXT J 

NEXT I 

FOR I=l TO 3000 

NEXT I 

CALL CLEAR 

A$="PER RIVEDERE : 1" 
FOR I=! TUO LENCA$) 
A=ASC(SEG$(A$,I,1)) 
CALL HCHA&R(1,I+12,A) 
NEXT I 

A$="PER USCIRE »: 2" 
FOR I=1 TO LEN(A$) 
A=ASC(SEG$(4$,1,1)) 
CALL HCHAR(3, I+12,A) 
NEXT I 

CALL KEY(0,KEY, STATUS) 
IF STATUS=0 THEN 1310 
IF KEY=50 THEN 1370 
IF KEY<®49 THEN 1310 
CALL CLEAR 

RESTORE 110 

GOTO 900 

END 





2 TO 21 
TO 


2 
3 28 











Moti 


O) PERS="PER RIVEDERE" 
O PEC&="PER CONTINUARE" 


CALL CLEAR 


O PRINT 


I=0 


3 PRINT 


I=I+1 


O PRINT 
i I=I+l 
) PRINT 


I=I+i 
PRINT 
I=I+1 


O PRINT 


I=I+1 


30 PRINT 


490 
S00 
Slo 
520 
dI 
540 
300 
560 
S70 
560 
9970 
600 
610 
620 
&30 
640) 
650 
660 
470 
èGa 
490 
700 
710 
720 
730 
740 
750 
760) 
770 
780) 
790 
900 
819 
920 
BIO 
940 
S50 
850 
970 
990 
990 


I=I+1 


O PRINT 


I=I+1 


O PRINT 


I=I+1 
PRINT 
I=1+1 
PRINT 
I=I4+1 
PRINT 
PRINT 


GO SUB 


D$; 


TAB (7) s Ia "CREAZ. MAGAZZINO" 


:TAB(7) s Is "DET. "sPR$" AL FPUB.": 


sTAB(7)31Is "VIS. TOTALE" 


:TAB(7) sIr"VIS. FARZIALE” 
: TAB(7) Is "VIS. UNITARIA" 
:TAB(7) s Is "SCARICO ARTICOLI" 
:TAB(7) Is "MODIFICHE PREZZO" 
:TAB(7)s Is "ELIMIN.ARTICOLI" 
sTAB(7) 5 Is "ART. IN ESAURIMENTO" 
:TAB(7) 3 Is “INSERIM. "53 ARE 
:TAB(8)5 "I INVENTARIO" 
:TÀB(9)s "FP FER FINE L&VORO" 


2990 
2920 


IF KEY=70 THEN SZ10 
IF KEY=735 THEN 1590 


M=KEY- 


47 


IF M£1 THEN 300 

IF M310 THEN 300 
ON M 60 TO 620, 1200, 940, 25350, 16540, 1640, 1640, 1640, 1270, 2580 
CALL CLEAR 
FRINT TAB(10); "CREAZIONE": ::TAB:10); "MAGAZZINO": rrrrrrrtisoiosie 
OPTION BASE 1 


DIM COD{Z50),ART$ (#50), FREZ (250), PEZZO) 


h=1 
PRINT 
INPUT 


FOR I= 


Chi 
COD (N) 
LTO N 


IF I=N THEN 760 
IF COD(fI}£=COD (N) THEN 750 


PRINT 


C$i" GIA” ESISTENTE!":: 


CALL SOUND(250,765,1) 


G0 TO 


MEXT I 


PRINT 
INPUT 


5700 
ARI" (MAX 
ART$ (N) 


30 LETTERE) "i 


IF LENCART$N)})<29 THEN 820 
CALL SUUND (250,765, 1) 


PRINT 
60 TO 
PRINT 
INPUT 
PRINT 
INFUT 
PRINT 


"NOME TROFFO LUNGO!“ 
760 

FRS; 

PREZ N) 

FES$; 

PEZIN) 

r:"C0E? ALTRO? (S/N) "i: 


GO SUB 2920 
IF KEY=78 THEN 910 


N=N+1 


100 
115 
1520 
1350 
140 
150 
160 
170 
190 
190 
200 
ZIO 
220 


SAC 


240) 
290 


260 













REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM KEKEEKFKFELE LE Lb Lei 
C4&="CODICE" 
AR$="ARTICOLO" 
PRii="PREZZO" 
PES="N.,FEZZI" 
D#&="PREMI" 
FU$="PER USCIRE" 


FKFXKLEKKEKEKTEKELKEK 


te 






FRANCOMPUTER 






GESTIONE 






DI MAGAZZINO 






Hook DE de i dk ek 
*o dk ko * dk * 

















200 

910 

920 

30 

940 

950 

960) 

970 

980 

990 

1000 
1010 
1020 
1030 
1540 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1150 
1140 
1150 
1160 
1170 
1190 
1190 
1200 
1210 
1520 
1230 
1240 
1250 
1260 
1270 
1290 
1290 
1500 
13510 
1520 
1330 
1540 
13550 
1560 
1570 
1580 
1590 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1370 
1400 
1490 
1500 
iSiOo 
1520 


GO TO é70 
GO SUB 2960 
GO TO 500 
CALL CLEAR 
GO SUB 3310 


INPUT "A SEGUIRE DA CODICE N.": 
FOR I=1 TON 

IF COD:I) 3=7 THEN 1030 
NEXT I 

PRINT "NON ESISTONO ARTICOLI": :D$; "UN TASTO" 

60 SUB 2920 

GO TO 220 

CALL CLEAR 

L=0 

FOR H=1 TON 

PRINT :ART#$(H) :COD{(H); TABS) FREZ ‘(H) s TAB(15)s INT (PREZH) GU) TAB(24) PEZ {H) 
L=L+5 

IF La21 THEN 1150 

IF H=N THEN 1160 

PRINT :D$:TABC(10)s "1 "sPEC$:TABG10)3"2 "aPU$ 

60 SUB 2920 

IF KEY=50 THEN 300 

L=0 

CALL CLEAR 

MEXT H 

PRINT :"PREMI"sTAB(8) "1 "iPERS:TAB(G)s "2 “"sFU$ 
60 SUB 2920 

IF KEY=49 THEN 930 

G0 TO 300 

GO SUB 3310 

PRINT TAB(8); "DETERMINAZIONE": ::TAB(6) sPR$5" AL PUBBLICO"trrrrsrisrne 
IF GU=0 THEN 1240 

PRINT "GUADAGNO FRECEDENTE": "RICHIESTO CIN 2%) "iGUXE100-100:: 
INFUT "GUADAGNO DESIDERATO CIN 2%) ":6U 

GU= (6U+100) /100 

GO TO 300 

60 SUB 3310 

CALL CLEAR 


PRINT "ART.CON "5PE%53" MINORE DI "i 

INFUT E 

CALL CLEAR 

L=0 

Bi=1l 

FOR J=1 TO N 

IF PEZ(4J) GE THEN 1480 

PRINT :ART$(J):COD(J) TABI6) ;FREZ (JI)  TABC15) s INT FREZ(J) «GU) TAB (24) 3FEZ{J) 
B1I=2 

L=Ll+3 

IF LeZ1 THEN 1400 

IF J=NN THEN 1490 

FRINT :D$;TAB(10) "1 "siPEC&TAB(10)3"2 "sFU$ 
GO SUB 2920 

CALL CLEAR 

IF KEY=55 THEN 300 

CALL CLEAR 

L=0 

NEXT J 

ON Bl GO TO 1500, 1510 

PRINT TAB(C(11)s "NESSUNO": : rire 

FRINT :D$:TAB(10) "1 "PERS TAB(10);"2 "PU 
GO SUB 29520 


1530 IF EEY=49 THEN 1280 
1540 60 TO 500 
1550 60 SUB 3310 


1570 INV=0 

1580 FOR I=l TO N 

1590 INV=INV+FREZ(I) #PEZ(I) 

1600 NEXT I i 
1610 PRINT TAB(9)s"L."s INVresrririD&8" UN TASTO "aFU& 
1620 60 SUB 2920 

1450 60 TO 300 

1640 GO SUB 3310 

1650 CALL CLEAR 

1660 PRINT TAB(A4); 

1670 H$="ELIMINAZIONE ARTICOLO" 

1680 IF M=6 THEN 1790 

1690 CALL CLEAR 

1700 PRINT TAB(2); 

1710 H&="VISUALIZZAZIONE UNITARIA" 

17520 IF M=5 THEN 1790 

1730 IF M=é THEN 1770 

1740 FRINT TAB{6): 

1750 Hs= "MODIFICHE FREZZO" 

1760 60 TO 1790 

1770 PRINT T&EB(7): 

1780 Hs="SC&RICO ARTICOLI" 

1790 PRINT Hrrtrrsris "CHIAMATA:"sTAB(12)s"i PER "sC6::TAB(12)s "2 PER "sARé:: 
1800 PRINT TAB{(12)5 "O "iPUSis: 

1810 GO SUB 2920 

1920 A=KEY-47 

18350 IF Aci THEN 1640 

1940 IF A>#3 THEN 1640 

1850 ON A GO TO 300, 1860, 1950 

1860 PRINT C&;5" "i 

1870 INFUT CORI 

1890 FOR J=1 TON 

18990 IF CORI=COD (I) THEN 2020 - 
1900 NEXT J 

1910 FRINT ::C$; 

1920 PRINT " INESISTENTE "”::D$5" UN TASTO": 

19350 GO SUB 2920 

1940 69 TO 1650 

1950 PRINT AR$: 

«1950 INFUT ARTI* 

1970 FOR J=1 TON 

1980 IF ARTI*=ART$(J) THEN ZOZO 

1990 NEXT J 

2000 PRINT ::AR$; 

2010 60 TO 1920 

2020 CALL CLEAR 

2050 PRINT 1rrr:64RT% (JI) :COD(J); TAB(6) FREZ(J)  TAB(15) gs INT (PREZ(J) #GU) TAB(24) FE 
2(J)trini: 

2040 IF Mé35 THEN 2080 

2050 PRINT :::1::D$;" UN TASTO" 

2060 G0 SUB 2920 

2070 G0 TO 1650 

2080 IF M<>8 THEN 2240 

2090 PRINT ::"E*DA ELIMINARE GIUSTO(SZN)?" 

2100 GO SUB 2920 

2110 IF KEY=85 THEN 2150 

2120 PRINT :ARS5" MON MODIFICATO"::D$5" UN TASTO" 
2150 60 SUB 2920 

2140 G0 TO 16450 

2150 IF J=N THEN 2220 


2160 FOR I=J TO N-1 
2170 CODCI)=COD(I+1) 
2180 ARTS(I)=ART$(1+1) 
2190 PREZ(I)=FREZCI+1) 
2200 PEZC(I)=FEZ(I+1) 
2210 NEXT I 

2220 N=N-1 

2230 GO TO 1650 

IF M=7 THEN 2290 


50 PRINT FESI 


INPUT " ATTUALE? ":PEZ(J) 
2580 G0 TO 1590 





2290 PRINT 1::FR8i" VECCHIO L."iFRE2Z(J)s: 


PRINT FR&; 

INFUT “ ATTUALE L. ":PREZ(I) 
20 50 TO 1690 

23550 GO SUB 3310 

40 CALL CLEAR 


O PRINT :i:PE$;" FRECEDENTE"sFEZ iI): 


2800 PRINT ARSITAR(Z8); 
20910 INFUT ARTS (N) 

2420 PRINT :FRSI 

2850 INPUT FREZ{N) 

2640 PRINT :FESS 

2050 INPUT FEZIN) 

“460 60 SUB 2960 

2970 PRINT : "NUOVI ARTICOLI (S/N) ?" 
2890 GO SUB 2920 

2090 CALL CLEAR 

2900 IF KEY=83 THEN 2590 
2910 GO TO 300 

2920 CALL SOUNDi100, 765,1) 
2930 CALL KEY(0,EEY, STATUS) 
2940 IF STATUS=0 THEN 2930 
2950 RETURN 

2940 REM ORDINAMENTO 

2970 FOR E=1 TO N-1 

2980 M=COD (K) 

2990 Mis=ART$ (K) 


2550 PRINT TAB(2)3 "VISUALIZZAZIONE FARZIALE":iprrssirisirinio 


560 PRINT "ARTICOLO": TAB(28):: 
7229 INFUT ARIS 
O CALL CLEAR 
o L=0 
O V=LENGARI*) 
O FOR I=iì TO N 





OD L=L+J 
2450 IF LAZ1 THEN 2510 


IF SEG&IARTE(1),1,V)c+ARIS THEN 2510 
30 PRINT :ART$(I):CODCI) TAB(O) iPREZ (I) s TAB(15) s INT (PREZ (I) +GU) TAB (24) pPEZ (I) 


URANO M2=PREZ (E) 
3010 M3=PEZ(K) 
3020 W=K 
3050 FOR I=K+1 TO N 
3040 IF M‘=C0D(1)THEN 3100 
3050 M=CUD (1) 
3060 MIS=BRT$(1) 





3070 M2=PREZ(1) 
5080 M3=FEZ (1) 


2460 FRINT :D38sTAB(10)5"1 “"iPEC&:TAB(10) 32 "FUB8 3090 WI 


2470 60 SUB 2920 


3100 NEXT I 


2490 IF KEY=50 THEN 300 Z110 COD(W}=COD K) e: 
2490 L=0 3120 ART$ (W)=ARTS (E) Ala 
2500 CALL CLEAR 3130 PREZW)}=PREZ (K) i SS A 
2510 NEXT I 3140 PEZW)=PE2 (E) 33h 
26520 IF Le 30 THEN 2540 3150 COD(E)=M DO cd LU 
2550 PRINT TABCL2)s "NESSUNO" 11r5:: 3160 ARTS (E)=M1$ Ei ia 
2540 PRINT :D$;TAB(10) "1 “"sPERSITAB (10) 5 "5 "5FU$ 3170 PREZ(E)=M2 dA 


2550 G0 SUB 2920 

2560 IF KEY=49 THEN 2540 
2570 G0 TO 300 

25380 60 SUB 5310 


3160 PEZ(K)=MI 
3190 NEXT K 
3200 RETURN 
AZIO CALL CLEAR 


2590 PRINT TABCLO)s "INSERIMENTO": TAB(11) AR$rsrsrs: 


2600 PRINT "CODICI DISFONIBILI":: 
2610 K=l 

2620 W=1 

2650 IF COD(W)=K THEN 2660 
26040 PRINT Es 

2659 60 TO 2670 

2660 W=Wr1 

2670 K=K+1 

“660 IF W>N THEN 2700 

2690 GO TO 26350 

2700 PRINT K:"e seguenti "s::: 
2710 N=N+1 

2720 FRINT C$; 

2750 INPUT CODCN) 

2740 FOR I=1 TO N-1 

2750 IF COD(1I)<>COD(N) THEN 2790 
2760 CALL SOUND(100, 765,1) 

2770 PRINT C%;" GIA” ESISTENTE” 
2750 G0 TO 2720 

2790 NEXT I 


3220 OFEN £1:"CS2", INTERNAL, OUTFUT,FIXED 
3230 PRINT £1:N,GU 
3240 PRINT :“STO REGISTRANDO": 
3250 FOR I=1 TO N 
3260 PRINT Is"*>  "sAR$:: 
3270 PRINT £1:CO0D(I) ,ART${(1),PREZ(I) ,PEZCI) 
3280 NEXT I 
3290 CLDSE £1 
2500 G0 TO 3450 
3510 CALL CLEAR 
35320 IF Ne 209 THEN 5420 
O OFEN £2:"CS1", INTERNAL, INFUT ,FIXED 
INPUT £2:N,GU 
#90 FRINT :"STO MEMORIZZANDO":: 
3560 FOR I=1 TO N 
3570 PRINT Ip" "3 AR$:: 
33590 INPUT £2:CO0D(I) ,ART8(I) ,FREZII) ,PEZCI) 
35390 NEXT I 





PREANALISI ("PRE-SCAN") !@P- è I@PY 





Dopo l'inserimento del RUN per dare inizio ad un programma, si può 
notare una pausa prima che inizi l'effettivo programma. 

Tale pausa sta ad indicare il tempo che il computer impiega per pre- 
analizzare (pre-scan) il vostro programma e quindi stabilire lo spa- 
zio per la memoria delle variabili, elenchi e dati. 

In seguito, il computer procederà attraverso ciascuna istruzione,ese- 
guirà le giuste funzioni, e stabilirà i valori variabili. 

Visto che il tempo richiesto per la funzione di preanalisi dipende 
dalla lunghezza del programma da eseguirsi, si potrà diminuire la 
pausa di preanalisi (pre-scan) soprattutto se si prevede che il pro 
gramma sarà di lunga durata. 

I nuovi comandi del BASIC ESTESO, !@P-e!@P.permettono di controlla 
re quali istruzioni non saranno preanalizzate. 

Dal momento che lo scopo delle preanalisi è quello di predisporre 
lo spazio memoria per le variabili, sarà necessario effettuare la 
preanalisi soltanto per quelle istruzioni che contengono il primo 
riferimento alle variabili. 

Di conseguenza, molte altre istruzioni del vostro programma non ri- 
chiedono le preanalisi. 

E' richiesta una attenta predisposizione del programma per minimizza 
re gli "statement" che necessitano le preanalisi. Quando nel vostro 
programma vengono usati certi tipi di "statement" (come viene qui 
spiegato) dovranno essere inclusi nelle preanalisi i procedimenti 
elencati qui di seguito : 


- inserire il vostro I° dato nelle preanalisi 

- includere il I° uso di ciascuna variabile e/o e}enco (includere 
incltre la OPTION BASE, se usata) 

- includere il I° riferimento di ciascuna CALL (chiamata) di qualsia 
Sì programma 

- includere tutte le esposizioni DEF per funzioni definite 

- includere tutti gli STATEMENT SUB e quelle SUB END nelle preanalisi 


Tenere presente che una variabile, su un programma SUB, definito, è 
considerata essere unica nei riguardi di altre variabili usate in una 
altra parte del vostro programma anche se il nome ed il valore sarà 
lo stesso. 

Quindi, ciascuna variabile usata in un SUB programma definito deve es 
sere inclusa nella preanalisi. 


Per usare l'opzione della preanalisi, accertatevi innanzitutto che il 
vostro programma completo si svolga con correttezza. Quindi all'ini- 
zio di un gruppo di STATEMENT di funzione si userà il comando !@ P- 
per annullare la preanalisi. 

Gli STATEMENT che seguiranno non saranno preanalizzate per far si che 
l'esecuzione del vostro programma abbia inizio più rapidamente. 


sfa 


10 
20 


100 
110 
120 


1370 . 
140 . 
150 . 


160 
170 
190 
200 


210 . 
220 . 


Qualsiasi STATEMENT collegato a nomi variabili (a cui non è stato prece- 
dentemente fatto riferimento nel corso della preanalisi) risponde con 

un errore di sintassi se la preanalisi è spenta (0FF). 

Da notare che '©P- non può essere seguito da un'altra STATEMENT in casc 

di STATEMENT multipli. 

Si potrà scegliere l'uso della caratteristica "preanalisi"” svariate vol- 
te nel corso del vostro programma. 

Attraverso l'accensione e lo spegnimento della preanalisi, il vostro pro 
gramma potrà iniziare a svolgersi in maniera più efficiente. 

L'effetto della preanalisi è più visibile nei lunghi programmi che in 
quelli brevi. 

Si noti che quando si usa il Computer TI 99/4A i comandi !©P- a '@P+ po- 
tranno essere inseriti con un carattere "p" minuscolo. 

Gli esempi che seguono vi dimostreranno come includere gli STATEMENT di 
preanalisi in un programma già esistente. 

L'esempio finale dimostra l'uso più efficace delle caratteristiche di pre 
analisi con l'uso di uno STATEMENT GOTO. 

Con l'aggiunta di GOTO si ha l'addizionale abilità di indurre il computer 
a predisporre spazio di memoria per STATEMENT di chiamata (CALL), come pu 
re per STATEMENT di variabili-collegate, senza in effetti eseguire tali 
STATEMENT. 

Per far presto basterà semplicemente usare l'istruzione GOTO nel vostro 
programma . 

L'esempio che segue vi dimostra il programma originale adattato con uno 
STATEMENT di preanalisi e di GOTO. 

Si noti che il metodo GOTO crea lo spazio necessario di memoria per es- 
sere utilizzate nella linea 20. 

Tuttavia, GLI STATEMENT nella linea 20 non si eseguiranno fino a che non 
saranno incontrate più avanti nel programma. 

Così, come dimostrato dal procedimento e seguendo gli esempi, si potran 
no mettere tutti i vostri riferimenti di variabili assieme e le vostre 
chiamate di sub-programma non dovranno essere sintatticamente corrette. 
Questo potrà rappresentare l'uso più efficace della vostra opzione di pre- 


analisi. 

DATA 3 

GOTO 100::DELAY::CALL CHAR::CALL CLEAR::CALL HCHAR::CALL 

VCHAR::!@P- 

CALL CLEAR 

CALL CHAR(96,'FFFFFFFFFFFFFFFF'') 

CALL CHAR(42,'‘OFOFOFOFOFOFOFOF'') 100 GOTO 180::X,Y,ALPHA,BETA,Z=DELTA::DIM B(10,10) 
110 CALL KEY::CALL HCHAR::CALL CLEAR::CALL MYSUB 
120 DATA 1,3,STRING 
130 DEF F(X)=1-X*SIN(X) 

CALL HCHAR(12,17,42) 140 . 

CALL VCHAR(14,17,96) 150 . 

FOR DELAY=1 TO 500 160 . 

NEXT DELAY 170 !@P- 
180 . 
190 . 
200 . 


TrapuzionEe Di Francesco CINADORI 


Fronte Cimedai 


iN BASIL- SAFARI SL FIUME 


CALL CHAR(35, "60407C7070505050") 
6520 CALL CHAR(40, "FEFFEFFFEFFFFFFF") 
650 CALL CHAR(126,"3C3C3C3C3C5C7EFF") 
640 CALL CHAR(127, "3C3C3C3C3C3C3C3C") 
so caLL SCREEN(6) 
460 FOR I=2 TO 16 
670 READ A,B 
680 CALL COLOR(1, 4,5) 
690 NEXT I 
700 REM SET SCREEN 
710 CALL HCHAR(17, 1,143, 256) 
720 CALL HCHAR(17,5, 106,24) 
730 CALL HCHAR(18,6,106,22) 
740 CALL HCHAR{19, 6, 106,22) 
750 CALL HCHAR(20,8,196,18) 
760 FOR I=135 TO 142 
770 READ ROW, COL 
780 CALL HCHAR (ROW, COL, I) 
790 NEXT I 
800 FOR I=1 TO 6 
810 READ ROW, COL 
820 CALL HCHAR(ROW, COL, 155,4) 
830 NEXT I 
840 CALL HCEHAR(14,5,148) 


5 CALL CLEAR 

6 CALL COLOR(13,5,16) 

7 CALL SCREEN(7) 

10 C$="1818FFED993C66C3" 
15 CALL CHAR(129,C%$) 

20 CALL HCHAR(4,4,129, 24) 
30 CALL HCHAR(20,4,129, 24) 
40 CALL VCHAR(4,4,129,16) 
50 CALL VCHAR(4,27,129, 16) 
110 CALL COLOR(5,16,1) 
120 CALL COLOR(6,16,1) 
130 CALL COLOR(7, 16,1) 
150 A$=" FRANCOMPUTER" 
160 RI=8 

170 CO=8 

180 GOSUB 300 

190 A$="PRESENTA" 

200 RI=11 

210 CO=1l1 

220 GOSUB 300 

230 AS="SAFARI" 

240 RI=14 

250 C0=9 

260 GOSUB 300 

270 FOR X=1 TO 60 

271 CALL COLOR(13,16,5) 
272 CALL COLOR(13,5,16) 
280 NEXT X 

290 GOTO 350 

300 FOR K=1 TO LEN(A$) 
310 CALL HCHARCRI,CO+K,ASC(SEG$(A$,k,1))) 
320 CALL SOUND(10,1500,0) 

330 NEXT K 

340 RETURN 

350 CALL COLOR(5,2,1) 

360 CALL COLDR(6,2,1) 

373 CALL COLOR(7/2)1) 

380 CALL CLEAR 

390 CALL SCREEN(4) 

400 REM IL SALTO DELLA TARTARUGA 


950 CALL VCHAR(15,5,147,2) 
860 CALL HCHAR(14, 28,150) 
870 CALL VCHAR(15, 29,149, #) 
990 CALL HCHAR(13,4,126) 
990 CALL HCHAR(13,29, 126) 
960 CALL VCHAR(11,4,127,2 





410 PRINT "PER GIOCARE FREMI -S-"::"PER ISTRUZIONI Nostri 
420 CALL KEY(0,K,5) 

30 IF S=0 THEN 420 coccio’. 
‘440 IF K=78 THEN AZ210 910 CALL VCHAR(11,29,127,2) 
450 IF K=85 THEN 4290 ELSE 420 + G20 CALL HCHAR(17,9, 110) 
460 CALL CLEAR 930 CALL HCHAR(17,14, 110) 
470 REM CARATTERI 940 CALL HCHAR(17,19,110) 
489 RESTORE 1050 950 CALL HCHAR(17,24,110) 
490 FOR I=147 TO i59 950 CALL HCHAR(1,1,40,96) 
500 READ A% 970 FOR I=151 TO 159 
5109 CALL CHARC(I, AS) 980 READ ROW, COL 
520 NEXT I 990 CALL HEHARCROW, COL, I) 
530 FOR I=135 TO 143 1000 NEXT I 
.540 READ A$ 1010 FOR I=151 TO 159 
550 CALL CHAR(I,A$) 1020 READ ROW, COL 
560 NEXT I 1030 CALL HCHAR (ROW, COL, I) 


570 FOR I=106 TO 117 


580 READ A$ 
590 CaLL CHARCI,A$) 


500 NEXT I po 


1040 NEXT I 





1190 2=2 
1200 V=3 
1210 GOSUB 4150 




















frode I e ma Fr dc (dna) Li Lara or 
1220 M$=" ((( (PUNTI="&STR$ (CRS)&"((" surisubrest 3583 085% 
“ e dè Cc o GG a doo Gol a ) = qJo 
1250 2=2 alii ca e hg e Tel e 
1240 V=17 ZIO DIUOUoLoiTOLIO DYJO NU 
#I°-rMDpDDI DPEPO PIO Deore 
1250 GOSUB 4150 +5 BDDE EMIL popgir 
1260 M$="LIVELLO="&STR$ (SK) DE 5 OO HE me ci pa né ® Im 
c Ra pri 4 r] i Dica I) Di 
1270 2=23 BRA UGI  -aaaone D 
1280 V=4 qmx di Neon dun 
h ed = a “4 ‘a PINI centi seni WD] I [ 
1290 GOSUB 4150 > IP GRNITSQIS RISI 
1300 M$="RECORD="&STR$ (HS) z Sorher S ;3 ci SR n Li n Ti 
1310 2=23 2 Rope hi eFyNcOnmas 
1320 V=18 ce CRESCI 
tima 0 ZI LO O NO GUT 
1530 GOSUB 4150 CER eee 
1340 REM GIOCO - TALENT Als soanmno 
SR PICSLA Cesi ta th] » (4 ‘ n Di ‘a il 
1350 CALL HCHAR(13,5,115) zo EGIAPLEI NboSSquaan 
1360 CALL HCHA 20 TRDSTTA es SUana 
Ri R(4,1,40,64) i Ode hi Li + 4 S Ti 
1370 M$="PREMI (UN (TASTO (PER (GIOCARE " = bbhoasLu Sf S nm 
a 058°LE 21 2 18 
1390 V=5 SIL OA Tm 
1400 GOSUB 4140 Bloc Ci 
1410 CALL SOUND (-50, 2000, 0) = = ta DI a a hi n =) u e: 
1420 CALL KEY(0,k,5) Sit DS 
“0 ISO i Ne Sho deo i + 
14350 IF S=1 THEN 1440 ELSE 1420 De see. ee ce Di Si 
À i Ss n “ ar “I loi Ji 
1440 CALL HEHAR(4,1,32,64) DIO NIE Ne Sn y 
1450 CALL HCHAR(13,5,32) sal bom Se da n n 
5 ” HI © RIM a mm n CA 
pa za {°° pa 53 538 
1470 C=6 zu a o o mà n mn a 
ele ; e A le , de n n N 
1480 CALL HCHAR(R,C,115) BK Ss GE n n 
n POR RS LI otti Ga n qa m 
1490 IF R=16 THEN 1540 dio. È SI de nm no di 
1500 C=C+1 49 LÈ2 Si n 1 N 
AVA ai ped d = un ce n è 
i510 R=R+1 TUE F ce CI 
2 muito: aula Si rane <e du S 2 * 
420 CALL HCHAR(R-1,C-1,32) © Di de De de 
1530 GOTO 1460 S SE ‘© cu N mon 
540 dacia io ò sat na en da TON 
1540 CALL SDUND(-50,C#30,0) n n TUIUTqu sm c mM n n mn 
1550 CALL KEY(0,E,5) È “ 59E59 cs delia n Li È 
1560 IF K=60 THEN 1590 05 Noa uu Gn Gn i a 
1570 IF K=B3 THEN 2070 ELSE 155087 5 (15255840 AU fi n n I 
154) REM DESTRO > OLLOVTLOGZ ve Sn << mon 
Lo RRNIA: conio Roscoe gent nie dra date Mia at Da le) ij 
1599 ON Sk GOSUB 3100,2970,2970 fa $F SSABIHERS Wu Sa mA 
1600 :CH&R (R.C.6 spregio pe pai FS È © uu © 
600 CALL GCHAR(R,C,6) vreoateorgteoe B do n è 










1619 CALL HCHARCR,C, 32) 
1620 C=Ct1 

1630 R=R1 

1640 GAL HGHARIR, Cai 
1660 IF (C=11)+(C=16)+(C=21)THEN 1670 ELSE 1610 
1670 CALL HCHAR (R,C,32) 

1680 C=C+1 

16590 CALL HCHAR(R,C,6G) 

1700 GOSUB 2560 

1710 CALL HCHAR(R,C, 3) 

1720 C=Ct+1 

1750 R=Rt+1 

1740 CALL HCHAR(R,C,6) 

1750 IF R=16 THEN 1760 ELSE 1710 

1760 CALL HCHAR(13,5,32) 

1770 CALL GCHAR(17,C,T) 

1789 IF T=106 THEN 33350 

1790 CALL SOUND (-50,C#30,0) 

1800 PT=RAN(SK) 

1610 IF PT:1 THEN 1850 

1920 GOSUB 28350 

1550 GOTO 1550 

1640 STOP 





















“1850 REM SALTO A DESTRA 
1860 CALL GCHARSG, 29, M) 
1870 IF (M=32)+(6c>115)THEN 1990 
1890 CALL HCHAR(13, 29,115) 
1890 CALL SOUND (-50,2000,0) 
. 1900 CALL HCHAR(R,C, 116) 
‘19109 CALL SOUND (-50,C#30, 0) 
1920 G=ll6 
1950 CRS=CRS+1 
1940 M$=STR$(CRS)&"(" 
1950 7=2 
c 1960 V=27 
1970 GOSUB 4140 
1780 GOSUB 2560 
1990 CALL HCHAR(R,C,32) 
\ 2000 C=C-1 
2010 R=R+1 
2020 CALL HCHARiR,C,6) 
2050 IF R=165 THEN 1770 
2040 G0T0 1990 
2050 STOP 
\ 2060 REM SINISTRA 
2070 ON Sk G0SUB 3100, #970, 2970 


\ 






2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2IZO 
2180 
2190 
2200 
2210 


2359) 
4220 









CALL GCHAR(R,C,6G) 
CALL HCHARiR, 0:53) 


C=C-1 
R=R-1 
CALL HCHAR(R,C,6) 
IF C=7 THEN 23550 





IF 
CALL HCHAR(R,C, 3) 
C=C-1 

CALL HCEHAR (R, C, 6) 
GOSUB 25060 

CALL HEHAR(R,C,32) 
C=C-1 

R=R+1 

CALL HCHAR:(R,C,6) 


(C=12)+(C=17)+(C=22) THEN 


2720 
2730 
2740 
2750 
2740 
2770 
2790 









Zi50 ELSE 2090 


IFORF=5 THEN 2760 ELSE 2910 

IF (RF=5)+(RF=3) THEN 2740 ELSE 2810 

CALL GCHARCAS,F+1,T) 

IF T=il1 THEN 2610 

IF (F=7)+(F=12)+(F=17) + F=2) THEN 2770 ELSE 
CALL HCHAR(17,F+2, 106) 

CALL HCHAR1G8,Fri, ill) 

CALL SOUND (-50,C#20,0) 


2810 
















2230 IF R=16 THEN 2240 ELSE 2190) 2790 
2240 CALL GCHAR(17,C, 7) 2800 F=5 
2250 IF T=106 THEN 3330 2810 RETURN 
2200 CALL SOUND (-50,C#30,0) 2Q20 REM RISTAMPA TARTARLIGA 
2270 PT=RB&N(SE) 28350 FOR 1=68 TO 23 STEP 5 
2290 IF PT> THEN 2500 2940 CALL GCHAR{18,I,T) 
2290 GOSUB 2830 2650 IF 1<>111 THEN 2850 
2300 GOTO 1550 266) CALL HCHAR19,I, 106) 
2310 STOP 5470 CALL HCHAR(17,1+1,110) 
2320 REM SALTO A SINISTRA 2580 NEXT I Ù 
230 CALL, HCHAR(R,C,32) 2890 FOR I=7 TO 22 STEP 5 d 
2740 CALL HCHAR(R-1,C-1,6) 2900 CALL GCHARGI9,I,T) Pai _ 
350 IF G=115 THEN 24350 2910 IFOT£31I11 THEN 2940 di 
2360 CALL HCHAR(13,5,114) 2920 CALL HCHAR(19,1,106) 3_& 
2270 CALL SOUND(-50, 2000,0) 29350 CALL HCEHAR (17, 142,110) af de "i 
380 G=115 2940 NEXT I SA 3 
2390 CALL HCHAR(R-1,C-1,6) 2950 RETURN csi det 
2400 CALL SOUND(-50,30#(C-1),0) f2960 REM STAMPA FESCE Zi twoldafLo 
È sa qa ZILUIUIKCOZ 
2410 GOSUB 2560 2970 FF=FF-1 SUOHULLOO LU 
2420 CALL HCHAR(13,5, 35) ita ai SOTA 
2430 CALL HCHAR(R-1,C-1,32) 2990 IF T=111 THEN 3050 DIRE 
2440 CALL HCHAR(R,C,32 3000 1F FF<7 THEN 3090 
2450 C=C+1 3010 CALL HCHAR(19,FF, 106) 
2460 R=R+1 3020 CALL HCHAR(19,FF-1,1:9) 
2470 CALL HCHéR(R,C,6! 30350 CALL SOUND (-25,4000,0) 
‘400 IF R=16& THEN 2490 ELSE 2440 
2490 CALL GCHAR(17,9,T) 
3500 IF T=106 THEN 3330 
2510 CALL SOUND (-50,Cx30, 0) 3040 G0T0 3100 
2520 GOSUB 2830 3050 CALL HCHAR(19,EF, 106) 
250 LOTO 1550 5060 FF=2Z8 
STOP 3070 GOTO 3100 
2550 REM IMMERSIONE TARTARUGA 3000 FF=28 
2560 RF=RAN(5) 3090 CALL HCHAR(19,6,106) 
2579 ON SK GOTO 2730, 7660, 2500 3100 F=F+1 
256809 CALL GCHAR(19,F,T) 3110 CALL GCHAR(18,F+1,T) 
2590 IF T=111 THEN 2460 3120 IF T=111 THEN 3180 
2500 IF ‘(RF=2)+(RF=3) THEN 2610 ELSE 25060 3130 IF F226 THEN 3210 
2610 IF (F=7)+(F=12)+{F=17)+(F=2%)THEN 2620 ELSE 2660 3140 CALL HCHAR(18,F,106) 
2620 CALL HCHAR(17,F+2,106) 3150 CALL HCHAR(18,F+1,108) 
30 CALL HCHARC(18,F+1,111) 3160 CALL SOUND (-25,4000,0) 
2860 CALL SOUND (-50, #20, 0) 3170 GUTO 3260 aa 
2650 F=5 3150 CALL HCHAR(C(18,F, 106) 
“660 IF (RF=4) + (RF=1) THEN 2670 ELSE 5720 3190 F=S 
2670 IF (FF=8)+(FF=13)+(FF=18)+(FF=53) THEN 2660 ELSE 2720f 3200 GOTO 3260 
2680 CALL HCHAR(17,FF+1, 106) 210 F=5 
2690 CALL HCHAR(19,FF-1,111) 0 CALL HCHAR(18,27,106) 
2700 CALL SOUND (-50,C+20,0) 30 GOTO 3260 
3710 FF=26 JI CALL HCHAR(19, 27,106) 








IF CM=2 THEN 3300 
CALL HCHAR(13, 28,352) 
RETURN 

CALL HCHAR(15, 289,112) 
RETURN 

REM SPRUZZO 

CALL HCHAR(R,C,117) 
CALL HCHAR (R+1,C,107) 
CALL SOUND (500, -5,0) 
REM 

CALL HCHAR(4,1,40,96) 


O RM=RAN(5) 


ON RM GOTO 3400, 3420, 3440, 5460, 3400 
M$="SIETE (CAPACE (DI (NUOTARE (P(C(((0" 
GOTO 35490 


O M$="PREGO(NON(VI (BAGNATE (((((C(C(C(" 


GOTO 3490 


) M$="( (FATICOSO (STARE (A(GALLA(20(0((" 
O GOTO 3490 


M$="SULLA (TARTARUGA (NON (SUL (PESCE 0 (" 


0 GOTO 3490 

) M$="NONCAVETE (TEMPO (FER (REMARE (((((" 
Z=4 

d V=l 


GOSUB 4150 


320 M$="VUDI (GIOCARE (ANCORA (2 (00 (® 


F2C 
ui 


V=5 


O GOSUB 4150 


M$="( (PREMI (S(0Cii((" 
1=6 


O V=9 


GOSUB 4150 


O CALL KEY(0,K,S) 


IF S=0 THEN 3600 
IF K=78 THEN 4390 
IF K=83 THEN 3640 ELSE 3600 


3 CALL HCHARCA,1,32,32) 

O M$="VUOI (CAMBIARE (IL (LIVELLO (?((((" 
O 2=4 

) Vel 

) GOSUB 4150 

O M&=" ((({(( (PREMI (5 (ONCE COCIO 


1=5 


do vel 
) GOSUB 4150 
) CALL KEY(0,k,S) 


IF 5=0 THEN 3730 

IF K=78 THEN 5950 

IF K=83 THEN 3770 ELSE 3730 

Mr "SCEGLI CILCLIVELLOC(((( (1 (2(0(3" 
2>5 


Val 


O GOSUB 4150 


CALL KEY (0,K,S) 
IF S=0 THEN 3Bi0 
IF (k>40)#(K<52)THEN 5640 ELSE 3810 


O SKk=K-48 


REM 
CALL HCHAR (4, 1,32,96) 
FOR 1=9 TO 24 STEP S 


O REM STAMPA UOMO RACCOGLITORE IN ERRORE 
O CM=RAN(3) 










3980 CALL HCHAR(17,1I,110) 


3890 CALL HCHAR(16,1,32) 


3900 CALL HCHAR(18,I-1,106) 


- 


2,106) 


3910 CALL HCHAR(19,I-2 


ni 


3920 NEXT I 








35930 CALL HCHAR(18,F+1,106) 








3940 CALL HCHA&R{19,FF-1,106 


3950 M$="LIVELLO="&STR$ (SK) 


980 GOSUB 4150 


3 


3990 IF HS>CRS THEN 4010 


=CRS 


4000 HS 


0. 
STR$ (CRS) &” (" 


4010 CRS 
4020 M$ 


4030 2=2 


=27 
4050 GOSUB 4150 


4040 V 


4060 M$="RECORD:"&STRS (HS) 


4070 7325 








PAG. avaddi 


VEDI 








4190 RETURN 


ISTRUZIONI 


4210 CALL CLEAR 


4700 REM 


"AD UN SAFARI; DOVETE ATTRA-": "VERSARE 


4220 PRINT "VDI PARTECIFATE CON UN AMICO" 


UN FIUME CON TUTTE" 


42350 PRINT "LE PROVVISTE: FER NON BAGNARLE" 


DELLE TARTARUGHE" 


[| 
Q 
zZ 
TL 
N 
N 
Pa 
= 
I 
"a 
E 
pae 
Lil 
LC 
CL 
n 
n 
<L 
DL 
a] 
Q 
Lu 
E 
Lu 
Q 
i 
Lu 
Lu 
[=] 


4240 FRINT "CHE NUOTANO NEL FIUME: ":"L’ABILITA ‘CONSISTE NEL":"SALTARE DA UNA TAR 


TARUGA" 


PALL’ALTRA, SENZA CADERE" 
4250 PRINT "NEL FIUME,FENA LA: FINE DEL":"GIOCO, CONSEGNANDO LE PROV-": "VISTE ALL” | 


AMICO, IL QUALE " 


“VERSATA VA | 


"AFPUNTAMENTO.OGNI ATTRA-" 


"NON SI TROVA QUASI MAI ALL” 


4260 PRINT 
LE 1.PUNTO" 


"UNA MANCHE": 


"VERSATE MASSIME FATTE IN " 


4279 PRINT "IL RECORD SEGNA LE ATTRA-" 


“PREMI ENTER ":0$ 


INPUT 
4290 CALL CLEAR 


42650 


DESTRA 


-S- 


4300 PRINT "FER GIOCARE USARE ”:: "SINISTRA 


ZDIA 


pe "1: "1 PRINCIPIANTE": 1" 


"LIVELLI DI DIFFICOLTA "" 


4510 PRINT 


LETTANTE"”:: "3. PROFFESSINISTA”" 






il. CLEAR 

PRINT "000000000000000000000008000000000000000000000GU000000I0O" 
PRINT "00 DuGu 00” 
PRINT "00 FRANCOMPUTEF: 0000 Uiolola 
Do" 


- 





+ 14 DI 


3 PRINT “DO UDIGÙ IL TEXAS FITTORE 0000 


00" 

è PRINT "00 GoooUDik 
COCOncddonoo0o 
7 FOR WAIT=O TO 300 
3 NEXT WAIT 
10 REM *XEFEKKEEKEE 
ZO REM # FAINT è 
ZO REM xXEresztri 
40 REM | 
SO REM * TISBASIC * 
0 REM | By RANDONE CARLO 
70 REN 
do CALL CLES&R 
#0 CALL SCREEN (2) 
100 CALL COLOR (2 

ALL da 





40000000050000000 000000000 0I0000000G0 















9 R(16,5,2 
150 FOR 1=4 tO ta, 

140 CALL COLORI, 10,2) 
i50 NEXT I 

160 FOR R=4 TO 17! 


Pe SI ] 
FI CHILL. 











i OFOF ) 
"OFOFOFOFO") 7 






CHAR (158, “OFOFOFO 







HCHAR (7, 
HCHAR iS, 
. NCHAR 7, 11,40, 
VCHARI7,14,40,6) 
VEHERIZ,.17,4#0,6) 

HCHAR (3, 21,40) 

HCHAR iS, 22,40) 

VCHAR (7, 20,40, 6) 

VCHAR CZ, Z5,40, 6} 

- HCHBR (7, 6,40,4) 

VCHAR (8,27, 150,5) 
VCHAR (8, 28, 137,5) 
IS0BELECTRONIC PICTURE" 

GUSUH 2250 

CALL e aa 
CALL COLOR i9,8,1) 

A&="Z1089 BY CARLO RANDONE" 

OSUd 2250 





ore n UU 
















ALL È (00, 400,1) 
cia EEYV(0,KE,5) 

550 THEN 490 

Lu SOUND (200, 600, 1) 
20 CALL CLEAR 

O CALL SCREENI(S) 


oO TT Gi 
Ex 
Lo 
ni 


(ni 
Ti 





540 FOR I=1 TO 14 
1 CALL COLOR(I,2,8) 
50) NEXT I 
0) Asg="i002DESIDERI LE SPIEGAZIONI f(Y/MHIF" 
0) GOSUB 2250 
570 CALL 5S0UND‘200,4010,1) 
500 CALL EEY(0,k,5) 
610 IF S=0 THEN 600 
520 CALL SOUND(Z00, 600, 1) 
650 1F K=89 THEN 840 ELSE 7590 
440 A&="1002 di 
6350 GOSUE 2250 
660 FOR I=1 TO 13 
670) READ AS 
280 GOSUB 2250 
690 NEXT I 
700 DATA "OLL4£FAINTE", "OFOSFUNZIONI SVOLTE DAL TASTI 1", "05084, E, R,5,D,Z {L= 
SPOSTAMEN-" 
7409 DATA "OZO7TI DEL PENNELLO, ", "0903 = INTINGERE IL PENNELLO", “1103P = ALZARE/ 
ABBASSARE IL FENN." 
720 DATA "L505H = ““HOME"" PRESSI L& TAVOLOZZA! 
750 DATA "IS0SCTRL 1 = CANCELLARE IL DISEGNO, ","IZ0SCTRL 0 = FINE .", "2OOZINIZIA 
LMENTE IL FENNELLO E°" 
740 DATA "2S2048LZATD €""4"" IN BASSO SULLO", "24045 CHERMD) «PRESSI" 
750 CALL SOUND (200,400,1) 
269 CALL EEY(00,kE,5) 
70 IF S=0 THEN 760 
780 CALL SOUND (200, 600,1) 
790 CALL CLEBR 
SÒ0 CALL COLOR(1,1,2) 
Bilo CALL SCREEN(2) 
620 FOR Isl TO 14 
950 CALL CHakilsdrzz, “"FFFFFFFFFFEFFEFE") 
940 CALL CHAR:1#B+39, "DOFFFFFFFFFAEFEFF") 
950 NEXT I 
850 FOR I=2 TO 15 
970 CALL COLORI, I+1,1) 
Ge0 NEXT I 
990 FOR C=3 TO 15 
900 CALL HCHAR (24,0, (C-1) +8+30) 
910 NEXT C 
920 Ah#="0070444479504044" 
và) CALL CHAR(49, 8) 
F4O fb="O0AC46s5ASAOSICOO" 
) FOR Isl TO 14 
CALL CHAREI*9+597,A6) 
70 MEXT I 
990 CALL CHAR:145,A6) 
990 A%="0044444444444450" 
1000 CALL CHAR (SO, A6) 
1019 f#="0070444470444444" 
1020 CALL. CHAR51,A6) 
1030 A$="007924243509242476" 
1040 CALL CHAR{S2,A%) 
1050 CALL CHAR (89, "00FFGlBlBigigdiFF") 
ai i) A gesso, 41,5 x 67 cm 
1069 CALL HCHAR(24,18,99) firmato in basso a destra 
1070 CALL HCH&R{Z4,19,49) (Inv. 58) 


1060 CALL HCHAR (24, 20,50) 

4090 CALL HCHAR (24, 21,52) | ) 

1100 CALL HCHAFR (24, 50,51) n} CC 
1119 R=1i2 


1120 C=1é 

11350 COLORE=1 
1140 COLOREP=18 
1150 ST$=CHR#$ (51) 











Harmonie der nòrdlichen Flora / 
Armonia della flora nordica 


Olio, cartone con imprimitura a 


1160 CALL HCHAR{R,C,145) 


1170 WW=32 1770 GOTO 1730 
1180 CALL KEY(0,E,S) 1780 R=R1 

1190 IF S=0 THEN 1180 1799 C=C1 

1200 IF Kk=87 THEN 1350 1800 GO0T0 1190 

1210 IF K=69 THEN 1380 1810 IF Ri>=25 THEN 1820 ELSE 2010 
1220 IF K=@2 THEN 1410 1820 IF Ci=1 THEN 1890 

250 IF K=83 THEN 1440 1830 IF C1=16 THEN 1990 

1240 IF k=689 THEN 1470 1840 IF Ci=17 THEN 1890 

1250 IF K=90 THEN 1500 1850 FOR V=19 TO 32 

1260 IF K=69 THEN 1530 1860 IF Ci=v THEN 1890 

1270 IF K=67 THEN 1560 1970 NEXT V 

1280 IF K=73 THEN 1Bl0 1880 GOTO 1910 

1290 IF K=60 THEN 2050 1590 R1=23 

1300 IF K=177 THEN 2250 1900 GOTO 2010 

1310 IF K=176 THEN 2210 1910 IF Ci=18 THEN 1920 ELSE 1960 
1320 IF kK=72 THEN 2150 1920 COLORE=2,75 

330 CALL SOUND (200, 200,1) 1930 COLOREP=8, 25 

1340 GOTO 1180 1940 CALL HCHAR(R1,C1, (COLOREP-2) #6+39) 
1350 Ri=R-1 1950 GOTO 2OZ3ù 

1360 C1=C-1 1950 COLORE=C1+1 

1570 G0T0 1580 1970 COLOREF=COLORE 

1580 R1=R-1 1980 CALL HCHARIR1,Ci, (COLOREP-2)+8+39) 
1390 C1=C 1990 R1=253 

1400 GOTO 1590 2000 GOTO 2050 

1410 Ri=R-1 2010 CALL SOUND(200,200, 1) 

1420 Ci=C+1 2020 GOTO 2040 

1430 GOTO 1580 2030 CALL SOUND (200,400, 1) 

1440 R1=R 2040 GOTO 11850 

1450 Ci=C-1 2050 IF ST$=CHR${51)THEN 2060 ELSE 2080 
1450 GOTO 1580 2060 ST4=CHR$ (52 

1470 R1=R 2070 GOTO 2090 

1480 C1=C+1 2080 STs=CHF$(51) 

1490 GOTO 1580 2090 As="2430"85T$ 

1500 Ri=R+1 2100 GOSUB 2250 

1510 Ci=C-1 2110 CALL SOUND(200, 500,1) 

520 GOTO 1590 2120 GOTO 1190 

15350 RI=R+1 21350 R1=23 

1540 C1=C 2140 C1=9 

1550 GOTO 1500 2150 IF ST%=CHF$(52)THEN 2160 ELSE 2190 
1560 R1=R+1 2160 ST$=CHR$(51) 

1570 Ci=C+1 2170 A$="2430"LST% 

4580 IF Ri1 THEN 1590 ELSE 1610 2180 GOSUB 2250 

1590 R1=1 2190 CALL SOUNDi200, 500,1) 

1600 C1=C i 2200 GO0T0 1700 i 

1610 IF Ci<i THEN 1620 ELSE 1640 2210 CALL CLEAR 

1620 Cl=l 2220 END 

1630 R1=R 2230 CALL HCHAR{1,1,32,736) 

1649 IF Ci>32 THEN 1650 ELSE 1679 2240 GOT0 1100 
“1650 C1=52 0 2250 REM SBK FRINT -AT 

1660 Ri=R 2260 RI=VAL(SEG$(A$,1,2)) 

1670 IF Ri>23 THEN 1640 ELSE 1700 2270 CU=VAL.(SEG$ (A&,3,2)) 

16590 R1=23 2280 FOR L=5 TO LEN(A$) 

1590 C1=C 2290 A=ASC(SEG$(A$,L,1)) 

1700 IF ST$=CHR$(51)THEN 1760 2300 CALL HCHARRI, CO, A, 1) 

1710 IF COLORE=0 THEN 1760 2510 CO=C0+1 

1720 CALL HEHAR(R,C, (COLORE-2) *0+32) 2320 NEXT L 

1730 CALL GCHAR(RI,C1,04W) 2330 RETURN 


1740 CALL HCHAR(R1,C1, COLOREP-2) *8+39) 
1750 GOTO 1780 
176) CALL HCHAR(R,C,W4W) 


CALCOLO DELL'UTILIZZO DELLA MEMORIA NELLA GESTIONE DATI 
[reca nea eg enne PALA I rr nni Vane ei e corel 
Carì Texani veglie portarVi a conescenza questa mia piccela 
sceperta che Vi sarà molte utile per nen cadere nella trap- 
pola del Memory full in XX. 
Facciamo un esempio melte pratico, abbiamo fatte un program- 
ma tipe archivie indirizzi e agenda telefonica, cen DIM (I00) 
cioè vogliamo utilizzare I00 indirizzi. Allera poniamo di avere 
i seguenti file .. DIM A#(100),B#(100),C#(100),D4(100),Ef(A00) 
con i rispettivi IMPUT AS(X) ecc, Cominciamo a fare i calcoli. 
Prima di tutte è consigliabile fare Resequence, pda con 1a fer- 
mula Î Z=Z+9 2 GOSUB £ ed RUN, attendere un po', apparirà 
Memory full in 4, allora fate semplicemente senza num. file 
PRINT Z ed enter, apparirà un date numerico, queste date 
è la memoria che petete utilizzare. Scrivetele da parte e can- 
cellate i file I e 2, Peniamo che sia uscite 6000, vuel dire 
che il programma che state usande eccupa più di I0.000 Byte. 
Bene, allera ci domandiamo, quanti caratteri pesso usare nel 
mie indirizza da 5 imput ? Basta fare 6000 divise I00 = 60, 
queste è il valore dei caratteri che possiamo usare.( Per essere 
più precisi bisogna fare 6000 divise (100 per 5(num. dim) e divise 
6 (num. imput)), così si ha il valere di ogni singola imput). 
Adesse che sappiame quanti caratteri possiamo usare (attenzione 
, bisegna calcelare anche gli spazi, i punti ecc.) possiame mettere 
nei file del pregramma l'ordine di calcelare tutti i caratteri 
che he date nel mie indirizze. Queste le possiamo mettere subito 
depo l'ultimo imput o prima del file di contrello tipe VA BENE 
(S/N). File ... Print "LUNG. MAX RECORD = " ; len(A#(X)&B#(X}E 
CA(X)&DA(X)&STRB(E)). 
Se invece siete dei distratti potete mettere l'ordine di nen 
accettare questo indirizze mettendo subite depo IF LEN (....) 
maggiere 60 THEN .... file del prime imput. 
Se invece velete sapere quanti indirizzi posse usare cen queste 
programma avende bisogno di 80 earatteri, si fa 6000 divise 80 
e $i ha 75 indirizzi, quindi cambiate i valori in RIM da 100 a 
75 poi rifate il calcolo della capacità di memoria, poniamo che 
esca 7000, quindi rifate il calcolo 7000 divise 80 = 87 indirizzi 
cambiate di nuove la RIM da 75 a 80 e così via finchè nen ottenete 
il massime valore di RIM con i Vestri 80 caratteri. 
Buon lavore, e seprattutte fat@- delle prove di cenferma su questa 
| piccola scoperta. 
PS. ATTENZIONE se nel calcolo della memoria appare NAME CONFLICT 
vuol dire che dovete cambiare la variabile Z perchè è usata iù 
qualche DIM del Vestre pregramma,. 






U 














CALL KEY (0,X,ST):=: IF ST=9 THEN 
CALL HCHARCROW, é, 32)::; ROW=ROW 
-u IF ROW<S THEN 4009 ELSE 
d 
IF 
#2, 32,465, 43):3 
GOTO 399 

IF (X=68)%(B) THEN CALL PATTERNE 
#3,32,#6,43)c:: VIT)S1I ci Bro ;; 
GOTO 3990 

IF (X=88)#%(C)THEN CALL PATTEENf 
#4,3532, 806,43): VIT) =2 Ce 
GOTO 3590 

IF (X=93)#(D) THEN CALL PATTERNI 
#5, 32,#6,43)t:; VUT)I=I35 cs: D=0 3: 
GOTO 390 ° 


zx 


(X=659)# (A) THEN CALL PATTERN 
V(T)=d9 1: ASA ri: 





TI version of ‘’Alpha Blast. 


Program 4: Alpha Blast — TI-99/4A 


Extended BASIC Version by Pat Parrish, Programming 
Supervisor 


100 
119 
120 
1359 
140 


159 
160 


170 


180 


199 
200 


219 


2290 


230 


GOSUB 519 
RANDOMIZE 
DIM N(3) 

CALL CLEAR :: 
CALL HCHAR(8,5,120,24):: 
Y AT(19,4):"AL PHA B L A 
ST CALL HCHAR(12,5,120,24) 
CALL MAGNIFY(2):: FOR L=1 TO 26 
CALL SFRITE(#L, INT (RND&26)+65,1I 
NT (RNDY13)+3, INT(RND®24) &8+1,IN 


CALL SCREEN(16) 


T(RND#*32)#8+1, INT (RND860) -359, IN 


T(RND860)-30) 
IF L=25 THEN DISPLAY AT(21,10): 
"GET READY!" 


NEXT Los: 
CALL CLEAR :: HS=9 

CALL COLOR(12,6,1) 

DISPLAY AT(1,6): "HIGH SCORE: ";H 


S_:: U=0 :: R=@0 :: SC=0 
U=U+.03tSGN(1-U):: R=R+1 :: DIS 
PLAY AT(5,14): "ROUND #";R 3:53: DI 
SPLAY AT(2,6): "SCORE: 

{S SPACES}";:SC 

FOR I=6 TO 21 :: CALL HCHARC(I,65 
$1128):: NEXT I 

FOR I=S TO 7 STEP 2 :: CALL VCH 
AR(5,1,95,17):: NEXT I 

FOR 1I=3 TO 9 STEP 6 :=: CALL VCH 
AR(4,1, 120, 20):: NEXT I ss: CALL 


CALL DELSPRITE(ALL):: 


DISPLA : 


250 
260 
270 


280 


299 
500 


3510 





389 


3908 


409 
410 
426 
43530 


4409 


450 
460 


4706 
400 
499 
s00 
519 
520 
5350 


540 


559 


560 


EX. BASIC 


HCHAR(4,4,120,5)rt CALL HCHAR( 
235,4,120, 5) 
FOR I=9 TO 3 
NCI)=INT(RNDI2656) +65 
FOR J=9 TO IT-1 _:ts IF N0FI=FsNCAIOIT 
HEN 260 

NEXT J.:: NEXT I IN 
CALL SPRITE(#6,42,3,97,1553 
CALL SPRITE(#2,N(0) ,14,57,153)r 
: CALL SPRITE(#3,N(1),14,97,201 
CALL SPRITE(#4,N(2),14,137, 
33 CALL SPRITE(#5,N(3),14,9 
A=-1 :3 B=-1 


13 C=-1 


JOYST(1,X,Y)s:t IF ABS(OXITA 


(Y)<>4 THEN CALL HCHAR(ROW,6, 
IF ROW<5 THE 


32):: ROW=RO0W-U 
N 404 ELSE 330 ' 
IF (X=9)t(Y=4)X (A) THEN CALL PAT 
TERN(#2,32,#6,43):: VIT)=0 :: A 
=d4 :: GOTO 3909 

IF (X=4)%(Yy=9)%(B)THEN CALL PAT 
TERN(#3, 32, #6,43):: V(T)=1I1 :: B 
#0 :: GO0T0 396 

IF (X=@9)%(Y=-4)# (C)THEN CALL PA 
TTERN(#4,32,#6,43):s V(T)=2 :: 
C=9 :: GOTO 399 

IF (X=-4)%(Y=@6)%X (D)THEN CALL PA 
TTERN(#5,32,#6,43):: VIT)=3 cs: 
D=9 :: GOTO 399 


CALL HCHAR(RO0W,6,32):: ROW=ROW- 
U :: IF ROW<5 THEN 4099 ELSE 330 
CALL SOUND(-10,299,2):: CALL FA 
TTERN(#6,42):;: T=T+1 s:1: IF T=4 
THEN 450 ELSE 330 


DISPLAY AT(22,11)s "YOUR TIME IS 
UP!" 

CALL SOUND(8909,119,5,120,5)3:: 
OR I=i TO 200 :: NEXT I 
DISPLAY AT(24,10): "PLAY AGAINIY 
/NY ?" 33 IF SC>HS THEN HS=SC 
CALL KEY(@B,KEY,ST):3: IF ST=9 TH 
EN 439 i 

IF (KEY=89)+(KEY=121)}THEN CALL 
CLEAR :: CALL DELSPRITE(ALL):: 
GOTO 209 ELSE 569 


F 


REM EVALUATE ANSWERS 

FOR T=9 TO 2 :: IF N(VIT))CN(V. 
T+1)) THEN 486 
SC=SC-INT(1.S*R&*ROW):: 
SC=SC+INT (R$ROW) 

NEXT T 

CALL DELSPRITECALL):: 
REM CHAR 

CALL COLOR(14,9,1) 
CALL CHAR(120,"0097E7E7E7E7E7E90 
“")5: CALL CHARC(128,"") 
CALL COLOR(12,6,10):: 
R(13,1,9) 

RETURN 

END 


GOTOÒ 499 


GOTO 219 


CALL COLC 


30, 10140, 10150, 10160, 10170, 10180 


a) 


SUGROUTINE SFONDO 


)13 


O 


GOTO 11090 


O ON TF GOTO 10040, 10100, 10119, 10120, 1 


10040 RESTORE 10190 


CALL MAGNIFY (4) 


2): 


=" 


O THEN V=1 


=" 
a 


10000 SUB SFONDO CTE,C) 
o, 


10010 DIM A$( 
10020 IF V 


10 


INIANS C8YIT 
0000000000000000410z01080000009000000000G000000 000000000 TETPrPZD1 HIYO DZEIT 
HIYO OLII 
HLA OGYII 
HO Ghost 
vi9d OSyII. 
FIYT OZ#II 
HIYT'OTHII 
HUGO GOLPTT 
H1LY0 0S6E£TI 
D FIYO ORSTI 

IPOSOOTOTO È FidTd OZ£cII 

30 000000C000 IIC G9°II 
TOToyo d9IYT OSSII 
9190 OFZ£II 

HIUO DESITI 


=B$ 





2 
4 
ASI) 


10960 DATA 3,21 
10970 DATA 2,7 


1098C 
1099 


lil 


1 TO 32 


11120 READ B$ 
111350 NEXT I 


n 
at 
3 
4 
+ 
se] 


È 
- 

n 

pai 

nd 

(9) 
3,32 
tc4 
AI 
n) 

Coni] 


la] 
A 
2,7 


110/70 DATA 


110 


DATA 1,27 
DATA 1,8 
REMATIFO 10% 
DATA 1 

O DAT 

O DAT 
DATA 
RESTORE 11150 


) 
) 
] 
O 
) 
ù 
11040 DATA 


110 


i 
11va 


090 REM «CARICAMENTO STRINGHE* 


0940 DATA 2,2 


SITA 


R=0) 
11140 GOTO 10030 


10950 DATA 3, 


11010 


1: 
il 


























































CA * x SERRE Da “ro 
ro a D È e "a he; 0000000000 PL9T VESTI 
a ds DVMn Pa Qu - 0000000900000 0004 1070 080000I00N0 CO 900000004 T10Z0pP08 #i9d dIS£II 
(ti «a - ES - - CS - - - - ” ” ". ” - ” ” ”. i 
5 Uidibi ooo Ae e be bolo vii Corn 200000000000 0000 192Ft 812000000000 0000NN0 8 dr OTO T0000ì FLUG DOETI 
U a ; RIE Sri ata = CRIARI) RR REN ARA ARA 
n SÈ ne TER È £ pai CeRSESEZEE DONHAIGA0GO DOCCOOEOTIZO I F0r0Z0T000000CI08SF0Z0 1000000! 00000000c) H1LYI VESTI 
= PO RERETEH 3 Ss =s TE 00000004 TO TOPO BON0IttOTIAI0N0000C 80 FOTO B0pOZOTO HIV GCBZII 
cea di desse 000000000 00010000000100008Hp0 01900000 NI00000t000 00000000 TOT0P08 FIYO OZSITI 
n 5055555: DI0DLIS 
. CREA Gi e. AI Tosi Di Da RE 010000000000000000 807020 130F 02010000 00000000 1070f08004000000 FLYO 09ZII 
Ea a 5 DA 1 è 123 o: 2 È , = i ha: a aaa ara Fata rata tati ATEOETNIOZ:Y beda terato lata: Fata A n L atnied 
SL ogg 329 CI°2II La 000000000000 0000100 TOZ0FC800 T0T07090000000019000 BIYO OSSII 
= HIHI Spa 
S# v180 bat} 
— <D Je dig 
# | anno PER RSI 
Tr tit n 1 DIG È 
Vs CI 4 MOI 5415 
Pa i m. ". ” "” ”. ". ". LL ". 7 tr, 
* Tm 23529025 DIO ORI 44 , Paga 
+1 n TTI IRE REA Fi + D BIT GOSIT 
+- Dm Di co LI TI < cc <L lesi n n 
DE Ì OoSISISSI2® seiner VIYCT DATTI 
CA Tu = <T I TI ES: 
WT cr FGOAGAAGASACA VIET OBIII 
cio n DO0I0D9AIDOIO DN a 
TU CEpbLErrrtkt ff ogcosgo0o 529 LIO DETTI 
GO 4 ID0IIIILL]|  aTAsA2424ME ì VIA 
t%£ DIO0INIGHNO IGILANNAS 9LYO GIFTI 
sa Di > = = DUI 2 ILONT: 4 LUI 2 
« DD nese an enon eos onnoce Audio #3H9NIH1S# NIY OSTII 
Si on è DD 5 DI ID O DD DO DI 
- oqnransmncdaz 35 x } 
ee  333835252% & 3 z à 3 
[ano Peo È x ST pari n, % 
PS rana . 9 nu _mermmno gn c Dn ars_e 538 
i dî SR e 5 ea eni nie rea CL e ei oe agi eee ar 
”- - Lal ” Cal ” ” Dal ” “n ” Lal ” Lul . “ Lal ”» - » - - “n » - ”» (o ” Lal ”r ” ” ” n rn “n 
de fostEitgogteree nocivo curate ID Mie a Nea e i 
Teri x OOO Ò * € <©T 
PERPPRPEFEFX*XITIITITIITITLT* TITTTATITEXTTTTTITTT*A* TITITIILII*XIIIIITIIAT 
«TiZ4NNGNHGINIBGECForFELEFLE-FEHFEEbLLELh-ELhEL’EbEEEEHEHLELELEEEELATT 
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FOR 


FOR 


ISCONSHAALUNMN- 


10010 
10020 
10030 
10040 
{0050 
10040 
10070 
10080 
j0090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10170 
10180 
10190 
10200 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
(V$, 4 
10290 
10300 
10310 
10320 


CALL CLEAR 
CALL SCREEN(2) 


CALL COLOR(I,I+2,1) 
NEXT I 
DX=6*3. 14/256 


B=B+DX 
R=INT(96-SIN (Bb) #35+,5) 
10 GOSUB 10000 

41 NEXT C 

12 R=96 

3 FOR C=80 TO 165 

14 GOSUB 10000 

15 NEXT C 

16 FOR R=BO TO 155 

17 C=R+46 

18 GOSUB 10000 

19 NEXT R 

O CALL SOUND(1000, 200,1) 
GOTO 21 





I=1 TO 14 


C=80 TO 165 














Ratsoni 
ADORNO - 






#SUBROUTINE "PIXEL".RIGA IN R, COLONNA IN C. 
IF V<>0 THEN 10150 

CALL CLEAR 

OPTION BASE 6 

DIM HEX$(15) ,X&(15) ,5C$ (159) 

CARZ=32 

V=1 

RESTORE 10110 

FOR I=0 TO 15 


READ HEX$(1),X$(I) 
NEXT I 
DATA 0000,0,0001,1,0010,2,0011,3,0100,4,0101,5,0110,6,0111,7 


DATA 1000,8,1001,9,1010,A,1011,B,1100,C,1101,D, 1110,E,1111,F 


- RI=INT(R/8+.9) 

CO=INT(C/8+.9) 
P=C-4+(INT(C/4+.9)-1) 
E=2+#(R-8*KI+7)+INT(C/8-C0+2.4) 

CALL GCHAR(RI,CO,CAR) 

IF CAR<>32 THEN 10220 

CARZ=CARZ+1 

CAR=CARZ 

7$=SEG$ (SC$ (CAR) ,E, 1) 

IF ASC(Z$)>57 THEN 10240 ELSE 10260 
V$=HEX$ (ASC(7$)-55) 

GOTO 10270 

V$=HEX$ (VAL (2%) ) 

V$=SEG$ (V$, 1,P-1)&"1"&SEG$(V$,P+1,4-P) 


2$=X$ (VAL (5EG$(V#,1,1))#B+VAL (S5EG$(V$,2,1))#4+VAL (SEG$(V$,3,1))#2+VAL (SEG$ 


s1))) 


SC$ (CAR) =SEG$ (SC (CAR) ,1,E-1)&Z%$&S5E6$(5C$ (CAR) ,E+1,16-E) 


CALL CHAR(CAR,SC$(CAR)) 
CALL HCHAR(RI,CO, CAR) 
RETURN 


“ PIXEL" 






feL Ol AioiS 





Si tratta di una subroutine in TI-BASIC (residente in consolle), 

con la quale è possibile sfruttare la massima risoluzione grafi- 

ca del TI-99 (192 righe per 256 colonne). 

Quando in R sia contenuta la riga (intero compreso tra 1 e 192), ed 

in C la colonna (intero compreso tra 1 e 256), con un GOSUB 10000 

si effettua l' "accensione" di un pixel alla riga ed alla colonna 

specificate, La subroutine verifica alle 2 seguenti fondamentali 
condizioni: 

1- I punti sono accessibili senza soluzione di continuità, ossia 
uno di seguito all'altro, sznza salti od interruzioni ; 

2- Il plottaggio di un punto all'interno di un carattere (ma- 
trice 8 per 8) NON DISTRUGGE O FALSA L'’INFORNAZIONE CHE VI ERA 
PRECEDENTEMENTE CONTENUTA, 

E' necessario che prima di ogni chiamata della subroutine (con un 

semplice GOSUB 10000), in R sia contenuto il valore della riga ed 

in C quello della colonna a cui si vuole attivare il pixel. 

AVVERTENZE 

a) La subroutine contiene un OPTION BASE Y ed un RESTORE 10100 : at- 
tenzione ad eventuali incompatbdbilità con il programma principa- 
le ; 

b) Il programma si blocca se si tenta di ridefinire un carattere di 
codice superiore a 159, in quanto il TI-BASIC consente la ri- 
definizione dei caratteri solo fino al 159°, Il contatore CARZ 
all'interno della subroutine non dovrà quindi superare il valore 
di 159, 

c) In quanto la subroutine ridefinisce il set di caratteri, non è 
possibile miscelare, se non parzialmente, testo e grafica. 

d) Non utilizzare nel programma principale le seguenti variabili : 
I , V, BIN#() , X#() , SC3() , CARZ , RI, CO, P_, E, CAR} 
VE, 28. 


Con tale subroutine è possibile realizzare ottimi disegni in alta ri- 
soluzione (e grafici di funzioni), con una velocità di tracciatura 


non eccessivamente ridotta. 


VIALE ia 
#7 Rm a 





‘5 CALL CLEAR | 


VIXEL Veocissimo 
eX.6. 


10 ACCEPT AT(235,1):X 1: ACCEPT AT(24, 1):Y 
20 CALL FIKXEL (Y,X) i: GOTO 10 














iDodo SUB FIXEL((X,Y}:: Y=INT(Y+0.5) 1: X=INTO(+0,5) 


10010 IF 450 THEN 10060 
10020 DIM HEX%(22):: FOR A=48 TO 57 1: HEX8(6-465)=CHR$ (A): NEXT & 1: FOR A=65 T 
0 70 1: HEX$(A-55)=CHFR$(4):: NEXT & 

10030 DIM NU(24):: FOR A=49 TO 57 :: NUCA-48)=A-48 1: NEXT A 1: FOR A=65 TO 70: 

: NU(A-48)=A-55 1: NEXT A i ” da 
10040 DIM P(8,2):: FOR A=0 TO 7 1: F(A+1,1)=A#2+1 s: F(A+1,2)=A%2+2 s: NEXT A 
10050 DIM B(4):: BIN(4)=1 :: BIN(3)=? :: BIN(2)=4 :: BIN(1)=6 i 2 
10060 YI=INT((Y-0.1)/8)+1 s: X1=INT((X-0.1) /8)+1 :: CALL GCHAR(Y1,X1,CR):: IF CR 
=31 THEN CR=32 

10070 CALL CHARPAT(CR,C$)r: Y2=Y-(Y1-1)#B rs: X3=X-CINT((X-0.1)/4))#4 sr: X2=1-(X- 
INT((X-0.1)/B)#8:4) 

10080 IF CR=32 THEN CAR=CAR+1 1: CR=33+CAR 

10090 C$=SEG$(C$,1,F(Y2,X2)-1)&HEY$(NU(ASC(SEG$(C$,F(Y2,X2),1))-46)0R BIN(X3))&S 
EG$ (C$,P_(YT,X2)+1,17-F(Y2,X2)) 

10100 CALL CHAR(CR,C$):: CALL HCHAR(Y1,X1,CR):: SUBEND 

10110 SUB LINE(Y1,X1,Y2,X2}) 

10120 IF ABS(X1-X2)<ABS(Y1-Y2)THEN 10150 

10130 M=(Y1-Y2)/(X1-X2)z: Q=Y1-(Y1-Y2)}#X1/(X1-X2) 

10140 FOR X=X1 TO X2 :: CALL PIXEL(X,M*X+0):: NEXT X :: SUBEXIT 

10150 M=(X1-X2)/(Y1-Y2)s: OQ=X1-(X1-X2)#Y1/(Y1-Y2) 

10150 FOR X=Y1 TO Y2 :: CALL PIXEL (M&X+0,X):s NEXT X 

10170 SUBEND 


DISPONIBILE : 


ESPANSIONE 32 





MEMORIA 32K 


La MEMORIA 32K aumenta la capacita’ del T.I.99/4A grazie ad. un 

. supplemento a 35272K byts: (RAM) di memoria ed accesso Random 
dinamico. La MEMORIA 32K e’ stata creata per essere usata con 
l'Ext@ended Basic, l’Editor Assembler, il T.I. Logo, 0 qualsiasi 
altro modulo che richieda questa "nemoria estesa". 


Il connettore collegato cirettamente alla consolle T.I., @limina 
la, necessita’ cel T.I. PERIPHERAL EXPANSION BOX. 


La tecnica costruttiva permette l'uso di altre periferiche per il 
T.I., attraverso il connettore passante inserito nella MEMORIA 


— - — ir a P suini vert fe in n 


INTERFACCIA 232 


QUESTA INTERFACCIA ESTERNA ( COLLEGABILE ALL'ENTRATA DESTRA DEL 
‘VOSTRO TI 99) PERMETTE DI COLLEGARSI CON UNA QUALSIASI STAMPAN= 

*“ TE PARALLELA ELIMINANDO COSI' LA NECESSITA DI ACQUISTARE IL BOX 
DELLE PERIFERICHE. 


LA TECNICA COSTRUTTIVA PERMETTE L'USO DI ALTRE PERIFERICHE PER 
IL TI QUALI LA ESPANSIONE 32 K, IL SINTETIZZATORE ETC ETC. 


Che cosa è ll LOGO 


ILLOGO, in senso stretto, è il primo — appare come uno strumento di lipo parti 
lnguaggio per calcolatori scientilicamente colarmente universale. Non soltanto sulla 
concepito per Tavonire l'apprendimento carta, si badi bene: il LOGO è infatti già 

=———@@&em@+—@@W =. spontaneo, lo stesso Îi i appre DI ì A : ‘ ‘ 
pontino lo = im rano camminare Si navi cipaneali co RIANA 
03 parlare Quadi TE0C un linguag- : ; Peri ini tali, 
LOGO E' UNA © gio adatto sia per i bambini che per gli Gi comuna eiamiai pattini di ghetti o 
SSS CHE VA adulti che vogliono avvicinarsi al pensiero di materie scientifiche a quelli delle arti 
USATA CON LA costruttivo che sta alla base della proggam- liberali. Il già citato Centro Mondiale per 
ESPANSIONE : "reno lora (2.1 l'Informatica ele risorse umane si propone 
] PIL che un la guagzio il addirittura, attraverso il LOOO adattato a 

DI 32 K, 0 LOGO deve essere considerato un ambien- diverse li ; no: 
diverse lingue, di provare che è possibile 
ESTERNA C0= Ie, una Cigiolla educativa, Pasglà su Co su dei saltare a piè pari i problemi della civiltà 
ME QUELLA “laboratori per TE conoscenza” dove Th, industriale, porrundo un cesto numero di 

are. ilosolia 





€ i 4 bambini appartenenti a diversi villaggi del 
SO P R A 0 CON dl LOGO, come quelle del intelligenza terzo mondo a Superare un ilo hands di 
LA SCHEDA artificiale c della scienza cognitiva, assume diverse centinaia di anni 
32 K DEL * quindi che l'informatica abbia Do) Il LOGO è universale anche come puato 
BOX centrale nello sviluppo del pensiero, tcori- di incontro di due culture : 
di 0 e pratico, dele stmoderna. Ma i 
rappresenta ancis, potenzialmente, un 
ponte tra le famose due culture: la cultura 3 GIOIELLI @ER IL 


umanistica, legata al linguaggio c alle sue 
manifestazioni, e Quella scientifica, legata Vostao ‘E YA4 41 99 ha 
ai ua e = loro fee € riproduzione. 
‘ome egg) pensiero superano | 1 1 1 
deli ippica Gale lugie siate downloaded from www.ti99iuc.it 


queggi, naturali c artificiali, così il LOGO 


“ LOHIGIN,1, 3P3045 930 


‘177390 


173,6N04313) 


3ppamugii 35315 IG 


\}USSIVILNI 


i RiCAEStA 


[2] LA Ma 








TI I 


PICCOLI PROGRAMMATORI CHÉ VOGLIONO SUBITO COS 


SI FA A FAR MUOVERE UN 
ACCONTENTATI 


CARATTERE ? ( in questo caso un omino ) 


AI 


COMI 


LA CALL KEY 
ECCOVI 


CIOL! 
(129,"I8I8FF3C3C242424") 


I GIOCHI, 


l 


1 
I4O CALL HCHAR(R,C,129) 


I50 CALL KEY(5,COD,ST) 


160 IF ST 


2 
a) 
& 
©) 
ra 
Z 
= 
fa 
H 
= 
fa 
sE 
© 
< 
A 
Z 
< 
= 
o 
A 
< 
a 
a 
< 
< 
su) 
(tp) 
©) 
Da 
n 
H 
ra 
“ 
rl 


TRUIRE 
I00 CALL CLEAR 


110 CALL CHAR 


120 C 
130 R 





I 


200 SONO I LIMITI ENTRO 


FRANCOMPUTER 


» (C<32 
MW (18424 


68 
38 


$ THEN 159 
288) 


COD 
COD 


| 


+ 
+ 


200 
*(R>1 


32 


. 
83 
69 
LE DISEQUAZIONI ALLE LINEE 190 E 


Cc 


0 THEN 159 
, 
C - (COD= 
I - (COD= 


IO GOTO I40 


C = 


170 IF POS("ESDX",CHR$(COD),1) 
00 R 


180 CALL HCHAR(R 


190 
2 





MA PiR AREL PIU! 
I VALORI, 


ei 
71 


OPPORTUNAMENTI 


1<R<424, 


IN QUESTO CASO UTILIZZIAMO TUTTO 
e 


NI 
PI 


o) 


INFATTI 1<C « 32 
COLONNE 


CUI SI MUOVE L'OGGETTO, 
LO SCIERMO, 
PICCOLE BASTA MODIFICARI 


D 
4 


ie 


_ 
2 





OLE LEI AE 


AHOII 





L'ANGOLO DELLO STUDENTE 


tit _ _—_—_—__—_r_— eee“ 


ft—_—_—_—_—_—_—_ Tr —_—_“—eTiimzméémmueImiTEÒ.-_O_ 


Questo programmino trova il punto di intersezione di due rette 
nel piano sfruttando un sistema di equazioni di primo grado 
risolto col metodo di KRAMER. 


5 CALL CLEAR 

6 PRINT "STEFANO BRATOS, VIA SOLITRO 1/1, TRIESTE" 

7 PRINT 

10 PRINT "PUNTO DI INTERSEZIONE DI DUE RETTE NEL PIANO" 
20 PRINT 

#05) PRINT "PONI LE EQUAZIONI DELLE RETTE NELLA FORMA 
nunAX+ BY=C Vi DX+ EY=F""" 

27 PRINT 

30 PRINT "SCRIVI I COEFFICIENTI DELLA X E DELLA Y" 

40 INPUT "A= ":A4 

50 INPUT "Bas ": 
60 INPUT "G= ": 
70 INPUT "Da ": 
80 INPUT "E= ": 
90 INPUT "F= ": 
100 DELTA = (A x E) - (B«D) 
110 TF DELTA = gl THEN 170 
120 X=(CxE - BxF) / DELTA 
130 Y=(AwF- GxD) / DELTA 


fr Qtg 


135 PRINT 
140 PRINT "X= "; XL 
150 PRINT "Y= "; Y 


160 GOTO 27 

170 PRINT "NON ESISTONO PUNTI DI INTERSEZIONE. DELTA = gi" 
180 GOTO 27 . 
190 (END) 


Credo comunque che programmini di questo genere giano molto 
utili agli studenti (quale io sono) per verificare o per svelti. 
re i problemi di geometria analitica. 

Ovvi amente, visto che tale programma dovrebbe far parte di 
un programma ben più ampio (infatti io lo considero come un 
so ttoprogramma), andrebbero eliminati mdblti PRINT superflui. 





{0000 


SUB CIRCLE(KI,C0,RAGGIO) 


10010 IF RAGGIO: 1. OR RI-RAGGIO<1 OR RI+RAGGIO:192 OR CO-RAGGIOZi OR CO+RAGGIO>25 


6 THEN 
10020 
È 
10030 
10040 
10050 
10060 
10070 
10080 
10090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10170 
EN 101 
10180 
10190 
10200 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330" 
10340 
10350 
10360 
10370 
10380 
10390 
10400 
10410 
10420 
10430 
10440 
10450. 
10460 
10470 
10480 
10490 
10500 
10510 
10520 


x: NEXT Ios: Val os: CARZ=32 1: GOTO 10590 


10530 
10540 
10550 
10560 
10570 
10580 
10590 
10600 


10020 ELSE 10050 


CALL SOUND 200, 200,0): FRINT :“ BAD DATA IN CALL CIRCLE" :: END :: SUBEXI 


fi=-24C0 1: B=-2*RI sr C=C0*2+RI*2-RAGGIO*2 :: L=INT(RAGGIO/S0R(2)+.5) 
FOR Y=RI-L TO RI+L 
DIS=SOR (A*2-4# (Y*2+Bx#Y+C) } 


X1=(-A+DIS)/2 1: X2=(-A-DI5) /2 
CALL PIXELCINTY+.5), INT(IX1+.5)):: CALL FIXELCINT(Y+.5), INT(X2+.5)) 
FOR X=CO-L TO CO+L 

DIS=SOR(B%2-4k (X=*2tA*XX+C)) 

CALL PIXELCINT(Y1+.5), INT(X+.5)):: CALL PIXELCINT(Y2+,5), INT(X+.5)) 
NEXT X 


n CALU CIRCLE 
Vi=(-B+DIS) /2 1: Y2=(-B-DIS)/2 

SUBEND 

SUB TRAIL(Y1,X1,Y2,X2) rali -— 

A=1 


6 ARANDONE 


IF Xi<1 OR X1=256 OR Yi<l OR Yi3192 OR X2<1i OR X24256 OR Y2<1 OR Y2>192 TH 


80 ELSE 10190 


CALL SOUND (200, 200,0): PRINT :" BAD DATA IN CALL TRAIL" :: END :: SUBEXIT 


IF X1=X2 AND Y1=Y2 THEN 10360 
IF Yi=Y2 THEN 10400 

IF Xi=X2 THEN 10450 L, 

M= (Y2-Y1)/(X2-X1)ss N=Y1-M*X1 
PX=ABS(X2-X1) 

PY=ABS (Y2-Y1) 

IF PX>=PY THEN 10320 

IF Y2$Y1 THEN &=-1 

FOR Y=Y1 TO Y2 STEP A 

X= (Y-N) /M 

CALL PIXELCINT(Y+,5), INT (X+.5)) 
NEXT Y 

SUBEXIT 

IF X2X1 THEN &=-1 

FOR X=X1 TO X2 STEF A 

Y=MxX+N 

CALL PIXELCINT(Y+.5), INT(X+.5)) 
NEXT X 

SUBEXIT 

CALL PIXEL CINT(Y1+.5), INT(X1+.5)) 
SUBEXIT 

IF X2<X1 THEN A=-1 

FOR X=X1 TO X2? STEP A 

CALL PIXELCINTi(Y1+.5), INT(X+.5)) 
NEXT X 

SUBEXIT 

IF V2<Y1 THEN A=-1 

FOR Y=Yi TO Y2 STEP A 

CALL PIXEL CINI (Y+,5), INTOX1+.5)) 
NEXT Y 

SUBEND 

SUB PIXEL (R,C) 

IF Vé>0 THEN 10550 

DIM HEX$(15),X$(15):: RESTORE 10530 :: FOR I=0 TO 15 


1)) #2+VAL (SEG$ 


a GOTO 10640 


4): 
= 


RPT8("O", 
HEX$ (VAL (Z$)) 
da 


s3 VE 


&4F=CARZ 


CAF 


CARZ+I :: 


HEX$(ASC(Z$)-55)ELSE V$ 


X$(I),X&$(1I) 


fp 
[edi 
ru 


: READ H 


32 THEN CARZ 


SEG$(A$,E,1) 





YX$ (VAL (SEG$ (V$, 1,1) ) #8+VAL (SEG&$ (V$, 2, 1) ) #4+VAL (SEG& (V$, 2 


DATA 0000,0,0001,1,0010,2,0011,3,0100,4,0101,5,0110,6,0111,7 
DATA 1000,8,1001,9,1010,A,1011,B,1100,C,1101,D, 1110, E,1111,F 
RI=INT(R/8+.9) 

CO=INT(C/8+.9) 

P=C-4%(INT(C/4+.9)-1) 

E=2#(R-6#*RI+7)+INT(C/8-C0+2.4) 

CALL GCHAR(RI,C0, CAR) 

CALL CHARFAT(CAR,A$) 


10640 V$=SEG$ (V$, 1,P-1)&"1"&SEG$ (V&,F+1,4-F) 


10630 IF ASC(Z€)>57 THEN V$ 
10650 27$ 


“10610 IF CAR 
106520 2% 


{V$,4,1))) 


10660 B$ 


SEG$ (A$,1,E-1)&Z$£SEG£(A$,E+1,16-E) 


10670 CALL CHAR(CAR,B£$) 


10690 CALL HCHARCRI,CO,CAF) 


10690 SUBEND 


EX. BASIC 












SUBROUTINE "TRAIL" ( 90 linee): 
Riseluziene 192 XY 256. Con una istruzione del tipo : 

CALL TRAIL(R1,C1,R2,C2) in cui l1<R1=192 
1=C1-256 
3=R2=192 
1=C2=256, 

il TI 99 treccia un segmento (in alta ris.) fra il punte di ceor- 
dinate R1,C1 e quello di coordinate R2,C2, Utilizzando lea subreu- 
tine PIXEL anche questo sotteprogramza é lento, ma svolge bene il 
Sue compito. 
















BY RANDONE 


10000 SUB TRAIL(Y1,X1,Y9,X2) 
10010 A=1 

10020 IF Xi<1 OR Xi1=256 OR Yici OR YiIz192 OR XZ<1 OR X2>Z56 OR Y2<1 OR Y2>192 TH 
EN 10030 ELSE 10040 

10030 CALL SOUND(200,200,0):: PRINT :" BAD DATA IN CALL TRAIL" :: END :: SUBEXIT 
10040 IF X1=X2 AND Y1=Y2 THEN 10230 
10050 IF Yi=Y2 THEN 10250 

10060 IF X1=X2 THEN 10300 

10070 M=(Y2-Y1)/(X2-X1):: N=Y1-MxX1 
10080 PX=ABS(X2-X1) 

10090 PY=ABS(Y2-Y1) 

10100 IF PX>=PY THEN 10170 

10110 IF Y2XY1 THEN A=-1 

10120 FOR Y=Y1 TO Y2 STEP A 

10130 X=(Y-N) /M 

10140 CALL PIXEL(INT(Y+.5), INT(X+.5)) 
10150 NEXT Y 

10160 SUBEXIT 

10170 IF X2<X1 THEN A=-1 

10180 FOR X=X1 TO X2 STEP A 

10190 Y=M#X+N 

10200 CALL PIXELCINT(Y+.5),INT(X+.5)) 
10210 NEXT X 

10220 SUBEXIT 

10230 CALL PIXEL(Y1,X1) 

10240 SUBEXIT 

10250 IF X2<X1 THEN A=-1 

10260 FOR X=X1 TO X2 STEP A 

10270 CALL PIXEL (Y1,X) 

10280 NEXT X 

10290 SUBEXIT 

10300 IF Y2<Yi THEN A=-1 

10510 FOR Y=Y1 TO Y2 STEP A 

10320 CALL PIXEL(Y,X1) 

10330 NEXT Y 

10340 SUBEND 


103550 SUB PIXEL (FUNTOR, FUNTOC) 

103560 DIM V1$(64) 

10370 IF PUNTORZI OR PUNTOR:192 OR PUNTOC“I OR PUNTOC>256 THEN 10580 ELSE 10390 
10380 CALL SOUND (200,200, 0):: PRINT :" BAD DATA IN CALL PIXEL" :: END :: SUBEXIT 
103590 RIGA=INT (FUNTOR/8+.975) 

10400 COLONNA=INT (FUNTOC/8+.875) 

10410 X1=8-RIGA*d+FUNTOR 

10420 Y1=B-COLONNA*5+PUNTOC 

104350 CALL GCHAR (RIGA, COLONNA, CAR) 

10440 IF CAR=32 THEN 10900 

10450 CALL CHARFAT (CAR,AS) 

10460 FOR I=l TO 16 

10470 2%=SE6G$ (A&,I1,1) 

10480 IF 2$="0" THEN V#&="0000" :: GOTO0 10640 
10490 IF 7$="1" THEN V$="0001" :: GOTO 10640 
10500 IF 2$="2" THEN V$="0010" :: GOTO 10640 
10510 IF Z$="3" THEN V$="0011" :: GOTO 10640 
10520 IF 2$="4" THEN V$="0100"“ 1: GOTO 10640 
10530 IF 2$="5" THEN V&="0101" :: GOTO 10640 
10540 IF 2$="6" THEN V$="O110" :: G0T0 10640 
10550 IF 7%="7% THEN V&="O111" :: GOTO 10640 
10560 IF 2$="8" THEN V$="1000" :: GOTO 10640 
10570 IF Z$="9" THEN V$="1001" :: GOTO 10640 
10580 IF Z7%$="A" THEN V$="1010" :: GOTO 10640 
10590 IF 2$="B" THEN V$="1011" :: GO0TO 10640 
10600 IF 2$="C" THEN V#$="1100" :: GO0TD 10640 
10610 IF Z$="D" THEN V$="1101" :: GOTO 10640 
10620 IF Z$="E" THEN V$="1110" :: GDTO 10640 
10630 V$="1ilil" 

10640 FOR T=-35 TO 0 :: V1$(I%4+T)=5EG#$(V$,T+4,1):: NEXT T 
10650 NEXT I 

10690 VIS((X1-1)#B+Y1)}="1" 

10740 B$="" 

10750 FOR I=1 TO lé . 

10760 V$=V1$(I[#4-3)&V1$(Ix4-2)&V18(I*4-1)&V1$(I#4) 
10770 IF V$="0000" THEN 2$="0" :: GO0TO0 109350 
10780 IF V$="0001" THEN Z$="1" :: GOTO0 109350 
10790 IF V$="0010" THEN 2$="“2" 1: GOTO 109350 
10800 IF V$="0011" THEN 2$="3" :: GOTO 10930 
10810 IF V$="0100" THEN Z$="4" :: GOTO 10950 
10820 IF V$="0101" THEN 28$="5" 1: GOTO 10930 
10850 IF V$="0110" THEN 2$="6" :: GOTO 10950 
10840 IF V$="0111" THEN Z$="7" :: GOTO 10930 
10850 IF V$="1000" THEN Z$="8" :: GOTO 10950 
10060 IF V$="1001" THEN Z%="9" :: GOTO 10930 
10870 IF V$="1010" THEN Z$="A" :: GOTO 10950 
10880 IF V$="1011" THEN Z$="E" :: GOTO 10930 
10890 IF V$="1100" THEN Z$="C" :: GOTO 109350 
10900 IF V$="1101" THEN Z$="D" :: GOTO 10930 
10910 IF V$="1110" THEN Z$="E" :: GOTO 10930 
10920 2$="F" 

10950 B$=B$&Z% 

10940 NEXT I 

10950 CALL CHAR:CAR,B$) 

10960 CALL HCHAR (RIGA, COLONNA, CAR) 

10970 SUBEXIT 

10980 IF CARZ=0 THEN CARZ=32 

10990 CARZ=CARZ+1 

11000 IF CARZ>145 THEN 11010 ELSE 11020 
11010 CALL SOUND ‘200, 200,0): PRINT :" BAD CHAR IN CALL PIXEL" :: END :: SUBEXIT 
11020 CAR=CARZ 

11050 FOR I=1 TO 64 :: VigtI)="0" 1: NEXT I 
11060 GOTO 10690 :: SUBEND 


EX. BASIC 


"STEROUTINE “PLOT (35 linee): 


come la subroutine "TRAIL", ma molto più veloce in quante lavora 
in risoluziane 24 X 32 ( leRiga24., l=Colonna=z2 LA 


GY AANDONE 











10000 SUB PLOT(Yi,X1,Y2,X2) 

10010 CALL CHAR143, "FFFFFFFFFFFFFFFF"):: Asl 
10020 IF X1<1 OR X1%32 OR Yix1 OR Y1>24 OR X2<1 OR X2>352 OR Y2<1 OR Y2>24 THEN 1 
0050 ELSE 10040 - 
10050 CALL SOUND (200, 200,0):: FRINT :“BAD DATA IN CALL PLOT" :: END :: SUBEXIT 
10040 IF X1=X2 AND Yi=Y2 THEN 10250 

10050 IF Y1=Y2 THEN 10250 

10060 IF X1=X2 THEN 10300 

10070 M=(Y2-Y1)/(X2-X1)ss N=Y1-M*X1 

10080 PX=ABS(X2-X1) 

10090 PY=ABS(Y2-Y1) 

10100 IF PX>=PY THEN 10170 

10110 IF Y2<Y1 THEN A=-1 

10120 FOR Y=Y1 TO Y2 STEP A 

10150 X=(Y-N) /M 

10140 CALL HCHARCINT (Y+.5), INT(X+.5),143) 
10150 NEXT Y 

101650 SUBEXIT 

10170 IF X2<X1 THEN A=-1 

10180 FOR X=X1 TO X2 STEP A 

10190 Y=MkX+N 

10200 CALL HCHARCINT(Y+.5), INT(X+.5),143) 
10210 NEXT X 

10220 SUBEXIT 

10230 CALL HCHAR(Y1,X1,143) 

10240 SUBEXIT 

10250 IF X2<X1 THEN A=-1 

10260 FOR X=X1 TO X2 STEP A 

10270 CALL HCHAR(Y1,X,143) 

10280 NEXT X 

10290 SUBEXIT 

10300 IF Y2<Y1 THEN A=-1 

10310 FOR Y=Yl TO Y2 STEP A 

10320 CALL HCHARCY,X1,143) 

103530 NEXT Y 

10340 SUBEND 





TI version of ‘‘’Crazy Climber.”' 


Program 4: Crazy Climber For The T1-99/4A 


Pi __M Pat Parrish, Programming 


100 
119 
120 


150 


140 
150 
160 
1790 
189 
190 


200 


219 


220 
250 


246 
250 


260 


DIM D(6(7),E(7),G(4),C$(4) 

GOTO 1406 

REM RANDOMLY PICkK WINDOW & PRIN 
T SINISTER MAN ’ 
V=INT(RKND*8):: CALL DELSPRITE (# 
1):: CALL SPRITE(#4,96,2,D(V)s8 
+1,E(V)$BD+1)::; R=-1 13: Q=-1 _3:3: 
RETURN 

HS=9 :: RANDOMIZE 

GOSUB 4809 

GOSUB 790 

GOSUB 6709 

T=9 3: U=.1 33 Q=9 11 R=>0d 33 SC 

=0 :: B=112 1:13 Z=-53 ta ROW135 3 
3 COL=15 

COLE SPRITE(#2,B,2,ROWIG+1,COL 8 
+ 

IF R THEN CALL SPRITE(W1,GC(INT( 

RND85)), INT(RND%14) +3, (D(V)+4)& 

8+1,E(V)#8+1,15,09):: SC=SC+19 : 
s R=9 :: CALL DELSPRITE (#4) 

IF (RND<U)% (R=0)% (0=2) THEN GOSU 

B 15090 

CALL KEY(dB,k,ST) 

IF K=69 THEN ROW=ROW-1 t:t: IF (R 

OW=-1) THEN ROW=23 3:3: SC=5SC+109 

ss U=U+SGN(1-U)/209 3: GOTO 280 

ELSE 280 

IF K=83 THEN COL=COL-SGN(COL-2) 

82 1:13 GOTO 280 

IF K=68 THEN COL=COL+SGN(26-COL 

)*2 :: GOTO 280 

IF K=@88 THEN ROW=ROW+1 3:33 IF (R 


90 COMPUTEI November 1983 


 TI-99/4A Version NG i 


‘ Pot Parrish, Programming S SUDEne 


bili ni 


- In the TI-99/4A version of this game (writwa 

‘ in Extended BASIC), you are the Crazy 

‘ Climber, scrambling up the face of a buildims 
while avoiding numerous objects (piano, iron, 
 broom, safe, barbells) tossed from the win: 

i dows above. These objects are actimili ris. 

: down upon you by a Bloo sinister fio 


ce sasa 


each object. Il you ate qui. Ki Ni 
these oncoming « Dic cis. ie Dia 
. he throws things; it'sa quirk. Bo reuuv io 
‘meet the challenge. For as the game progr. 
es, the villain strikes with greater frequenc. 
In this game, you move the Crazy 
:. Climber over a stationary building with tie 
:, E, 5, D, and X keys. The screen will wrap 
‘ around when you reach the top or bottom. A 
hundred points are awarded for crossing the 
top of the screen, while an equal number are 
deducted for crossing the bottom. In addi. 
; tion, ten points are given for each falling 
; Object that you avoid. 
i The game ends when you are hit by a 
:. falling object or are pushed from a window 
. by the villain. Thus, you are allowed to clinio 
- Over windows in this version, but you‘re 
* taking a chance. If the villain emerges while 
f youareinawindow, it's curtains for vou. 
; (You'Il be relieved to discover tnat the Cra 
» Climber carries a parachute.) 

One line in this program requires the: 
: youhavea TI Speech Synthc Da So 
+ to your TI-99/4A. If you don't ti 
| pheral, remove the CALI Sv ('unon ) 
» statement in line 320. 


- +. ——riao—m— tf il... i Àte — 


lrn» 


O0W=24) THEN ROW=@ 2:13 SC=SC-1729 
î GOTO 289 ELSE 2809 

276 GOTO 290 

209 bD=220-D 11 Z=197-2 ti CALL SPRI. 
TE (#2,B,2,ROW318+1,COL860+1)tx: CA 
LL SOUND (19,2, 2) 


299 CALL COINCCALL,C1):1: IF Ci THEN 
329 
399 CALL POSITION(#I,XROW, XCOL)1: I 
F_XROW<C1829 THEN 200 


© 318 CALL DELSPRITE(#1)11 Q=9 1: GOT 











320 Vea2 13 CALL DELSPRITE #* 
)3r1 CALL SAY("UHOH") 11 REM REMO 
VE "CALL SAY" IF W/OUT SPEECH S 
YNTHESIZER 

330 IF TP THEN T=40 

348 CALL SPRITE(#2,198,2,ROW&KB+1,CO0 
Lt0+1,25,9)t1t FOR Imi TO 95 ri 


NEXT 1 en CALL MOTION(#2, 10,0! 


LEA Moni FAR IL SINfEAMA TORE TolLi Ere 


La unea 320 


618 DATA 95090009F 9FoFIFI009I999909090925% 
0I0000E92029E0FA9F9F8IA9A9099A099I0:A 
IIO0VIHO 

629 DATA I0A999999090AD0DAL.AIZIESCIC 
FCF87001093:06569C18350969C980090004900 
IIIIAHA 

639 CALL CHARC6104,"d910970F1F|:FISIOIt 
0004049292091091090989E09F3F8OF95B8CI: 
0192920940408098900") 

649 CALL CHAR(198, "9209409509701 0210! . 
029202950900990900804049C9999€%. “i 
040404060040 0000504") 


659 CALL CHAR(96, "0099904909001 C1C0A5 
0E045407970381C1F273F7FFFFFFFFF37 
2F1IFO3SO0F1IF3F7FFF") 

6609 RETURN 

679 CALL COLOR(12,1,1):: CALL COLOR 
(9,1,1):: REM SET UP WALL 

689 CALL CLEAR :: CALL SCREEN(2):: 
ROW$="x YxX YX yXyXyYXYyXYXYyXyXyXyXyx 

. yxy" 

TI version of ‘Crazy Climber.”” i 699 ROW2$="yYX YX YyXyXyYXYyYXyxyXyxyXxyXyXx 
yxXyx » 

7996 FOR ROW=1 TO 23 STEP 2:: DISPL 
AY ATC(ROW, 1) :ROW$ :: NEXT ROW 


358 CALL SOUND(-50,-7,2)11 caLL spero 719 FOR ROW=2 TO 24 STEP 2 3: DISPL 
ITE (#3, 194,16, (ROW+2)#*6+1,COL#8 AY AT(ROW, 1) :ROW2%$% :: NEXT ROW 
+1,19,0) 726 FOR ROW=3 TO 6 :: FOR COL=5 TO 


369 CALL BOUND(80,5092-TX49,V)11 T= cole 40: DALL HerA OO 
T+i 11 IF T<65 THEN 360°. L,190,4):: NEXT COL :: NEXT ROW 


RR = n.8 OL= I 
378 CALL POSITION(#1,DR,DC,#3,CR,CC COR AGA E Rag a io 
):: IF DR>192 THEN CALL DELSPRI SOR e Ra 
, » i ss. 





TE (#41) 

389 IF CR>165 THEN CALL DELSPRITE (#@ a 
2,#35):: GOTO 400 ì 749 FOR ROW=11 TO 14 :: FOR COL=16 

399 GOTO 360 TO 20 STEP 10 :: CALL HCHARCROW 

4968 IF TP THEN GOTO 919 3 COL, 100,4):: NEXT COL :: NEXT 

416 CALL DELSPRITE(ALL):3 FOR isi T ROW 
O 1009 :: NEXT L _:: CALL CLEAR ; 759 CALL COLOR(12,15,7):: CALL COLO 
: CALL SCREEN(14) R(9,1,11) 

4298 DISPLAY AT(19,5): "YOUR SCORE : 7609 E(0)=4 :: E(1)=14 :: E(2)=24 
*# SG E(3)=9o_:: E(4)=19:: E(5)=4 

439 IF SC>HS THEN HS=SC P E (5)=14 :: E(7)=24 

449 DISPLAY AT(13,5): “HIGH SCORE : 779 D(09)=2 _:: D(1)=2 _s:: D(02)32 _::01 
“3 HS (3) =19 :: D(4)=19_:;: D(S5)=189 :: 

459 DISPLAY AT(16,5): "PLAY AGAIN ? D(6)=18 :: D(7)=168 
“ 33 ACCEPT AT(16,19)BEEP VALID 780 RETURN 
ATE C("YN")SIZE(1):ANS$ 799 REM TITLE PAGE 

469 IF ANS®="Y" THEN 179 899 CALL CLEAR :: CALL SCREEN(15) 

479 STOP 819 ROW$="xyxyxXyxyxy" 3: ROW2$="vyxy 

4B9 REM DEFINE CUSTOM CHAR xyxyxyx" 

499 FOR I=129 TO 121 829 CALL COLOR(12,15,15) 

5009 READ A$ 839 FOR ROW=7 TO 23 STEP 2 :: DISPL 

519 CALL CHARCI,A$) AY AT(C(ROW,2):ROW$ :: NEXT ROW 

520 NEXT I 8468 FOR ROW=8 TO 24 STEP 2 :: DISFL 

530 Hide FFB9808089808980,FF0191010 AY ATCROW,2):ROW2$ :: NEXT ROW 

1 101 n ; i» 

540 caLL MAGNIFY(4):: CALL CHAR(190 5 neri HE" 33: DIS 
, 2" # 850 DI 

559 CALL CHAR(112,"03232321273F93093 Ra î 1 ù BE R" 
0350930960819989499809908999C9E9998 879 FOR I=si TO 100 :: NEXT I :: B=i 
B9980898989808989") 16 :3 Z=200 :: ROW=19 :: COL=6 

569 CALL CHAR(116, "0161910990930976911 880 CALL SPRITE(#2,5B,2,ROW#B+1,COLR 
09010910109109191091C9C4C484E4FCC9C 8+1):: CALL SOUND(19,2,2) 
9C9C06919981026909") 

5798 FOR I=0 TO 4 ::: READ C$(1):: G( 96 ESS a 4519732 sd ROW=ROW=1 
I)=124+48%I :: CALL CHAR(GC(I),C$ 23 FOR Isl TO S0O sz NEXT I s:3 
(I)):: NEXT I IF ROW>1 THEN 8apBa 

589 DATA 2070FF7020400004009000999090 900 TF=-1 :: GOTO 320 
009900040EFF0E9490099090909000000 919 TF=9 :: DISPLAY AT(16,13): "USE 
09090000 E,S,X.,D KEYS" :: DISPLAY AT(17, 

599 DATA 0900900903F 3F 3F3F3F3F3F3F3F 13) :"TO AVDID FALLING" 

924 DISFLAY AT(18,13): "OBJECTS." s:: 
3F393009999909090F 8F8F9DAFCF8F8F8F DISPLAY AT(29,16):“GD0OD LUCK!" 
8F81818 934 FOR I=l TO 10009 :: NEXT I :: CA 

699 DATA 040909191039450911273F3F1212 LL DELSPRITE(#2):: RETURN 


1010190909C9E09FEFB8BFCFEFEFAF 2121 IA END 
21010510 





rogo got 099093014 
x DE 


1 JUNGLE JIM * 


ILDUIOTIOLIOIOA 
MECORTO 


99° ER MERSION 2.10. 


t 
CI 
' 
L) 
LI) 
La: - 
LI 
LI 
U 
Li 
LI 















im 
220 RANDOMI ZE | 

#40 TIME=1 'SETS FLAG TO DISPLAY Ti 
* ITLE SCREEN 1ST TIME THROUGH 
cita gag 760 DISPLAYS TITLE SCRE 


Peo ne TIMEX>1 THEN GOSUB 1120 ‘RE 


LIEC2): GUY sh CALL VCHAR(1, 3,5 
3) e 8) DALL VCHAR(Z, 3,33) | 

Re RESTORE 910 13: C=96 

#29 CALL COLOR (2,2,11):3 CALL COLD 
(1,13, 1): CALL COLOR(3,2, 13) 
È CALL COLDR (4, .11,1)t 
“Spebi 2, 10)se 





H COLOR (8, 4,11):: CALL COLO 
R(7,15, s1Dir CALL COLOR (116, ;14, 

1) | 

(FOR Del TD 100 a: NEXT Ds: CA 

UL SPRITE 01,92, 16, 104, 60) | 







































18 
‘230 DEF RRND(N)=INT(RNDXN), RA, i |È 


era CHAR DEFINITIONS FDR REPL 


L DIEPLIAV ATC1, 4 BIZE (LEN (STR8 (8 
C) }+1)::SC 13, DISPLAY AT (2, 1)SI | 


in EX. Basic 


Se L=RRND (1) 3 PH AND 
HEN GOSUB Lo | 
MSRRND (4) 3 IF M=1 AND 
"EN BDSUB 550 ie EOTD 3 
GOTO 320 

} CALL CHARC116,(C15%)/:: CALL RCHAR 
(129, C2$\s: DALLO CHAR(124,(C36) 
È CALL SPRITE (#2, 116,5, 120,76, 0, tì 
PV, 3, 120,5, 120, 128, ©, PV, 64,12 | 
ILA 5,120, 160,0, PV) MEGNRENI 
il 
il 


TRKXI T 


(;) 


ta Di Hi 













MNBZ® CALL KEY(0,T,ST) tr CALL COINC 





fi 
pi i 
(IRITITI 








ALL, HIT) 13 IF HIT=-1 THEN CALL A | LL] 
DOTNC (#1,#10, 32, IT) 1: IF IT FER Inci: 3 Aenaagagizto Li 
1 THEN GOSUB 730 ELSE SOTO 756 [e 320e Patt AEREO Aa EROE] 
CONTROL LDOP NEXT il/i]; il] Dijhi 

- ST=@ THEN CAL RETURN I AA 
"a SLI VR I co Se SIT CALL SIRARARAA RANE EZANA ZIA] | 


20,#3,44,7, 104, 160,0, 2@) cf, 

(URN I | 

CALL SPRITE (7, 180, na a Aa i 

+10): RETURN {ijti] 

db CALL SPRITE (#10, 132,16, 9%, 216) 
RETURN 

CALL CHAR(L1G, *000C3A071F"2X& | 





5#0 CALL POSITION, X,V)s: TF NZ 
©4 THEN 4650 ELSE IF Y<60 THEN 
CALL SOUND (1,110,1,'112,2,114,3 
) 5: DALL LOCATE (#1,X, 69) 

IF T=68 THEN HV=10 :: CALL PAT 
TERN (# 1,0) (C=D-4 «e: CALL MOT 
ION (41,9, 10) 15 |IF Cx=92 THEN C 
=112 ss: goto 320 ELBE 320 


i 

































SEUI DR PELI CALL SPRITE (#2, 116, Ir (rNiDEI9) + 
ERN@#1,1) 3: D C-4 1: CALL MD 148, INT (RNDE14) X8+100, e, SV) 
TIONOEI, sO 101: IF. C<=92 THEN » 


‘ RETURN 


= LI 
E RIE "CARLI CHAR (1166, “ODDODIDOZ4BLZ72 


= EDTD 320 ELEE 32e 





IF Ters THEN 5390 .' 
@ CALL MOTION(k1,0,0@)s Hv=9 s: 735355 DEAAZELIS5A4ON0PN20BOROF 
SOTD S2@ ll I] AED&DESBF96BSS ") 
CALL ITIDN (81,1 | virile DALL SPRITE (#2, 116,7, 1438, INT( 
FOR Dei TD 2@ STE "al Li CALL £ IRNDX 14) *9+10©) 13 RETURN | 
OUND (-310,-3,D)= CALL EDINC CALL KEY (0, V, CW) sh IF DW<>O TH 
‘1,87, 17,HIT)sk, e HIT=-1 THEN EN DALL MOTICIN (81.6, 0) se DALL 
CALL MOTION (b1, 0,19): HV= ss POSITION(#1,X,Y):3 DALL LOCATE 
GOTO 710 | ji pi (1, 1338, Vs: CV, V=@ ss GOTO 3 
| 20 IITTI 4 Hi 





NEXT D' | Ki | 
CALL MOTION dt1,24,HVXx1.5) TE=2 :: GOTO 860 


CALL SOUND (500, 500, 1, 524, 2,508 


6 FOR D=1 TO 6 kb COINC #1, 
#7,17,HIT):: IF HIT=-1 THEN CA (453) 8: CALL DELSPRITE (#10) 1: SC 
HA A agligaabrendy 9, 10) 215 GorTo 710 ‘SS0+250 :3 DISFLAY ATTI, 1) SIZE 


NEXT Ds: CALL MOTION(#1,09,0) 
CDALL POSITION UE, X,Nne CALL L 
COCATE (#1,194,V):: GNTD 320 
CALL MOTION(#1, 0, ®) rs: CALL LOC 
MATE (#1, 184,60): FOR I=2 TO Ga 
s: CALL DELSPRITE MI) =: NEXT 
Ir: COL=COL+1 i: .IF COL=I1 TH 
EN COL=14 i 
(IF COL=16 THEN ch 
CALL COLOR (7, COL, 11) 
EA=RRND (6) 1: IF_EA=1 THEN GOSU 
B 640 ss GOTO S2@ 
TRERRND (4) 01: {IF Tri THEN boss 


Lor hkcaf aggor dada i» Li 
CHAR (1,3,535) (1 ;) 


| i 
;IITI[I SURGRONAS 
| 
Ì 


# CALL V| 


( 
I | 
(FT 

| 





REM \ i I | | | 
T,ST=9 | MOTION (#1, 0, bel 
FOR 14510 TO 119 STEP — 109 fs 
CALL SOUND(1,1, 1, T+2,2,I+4, Da 
: NEXT I 

GUY=GUY-1 si DISPLAY AT (2,151 | 
(ZE (+2) BUY in: DALL NCHAR(2,3,55 
ito AF BUVClA THEN CALL LOCAT 
E (#1, 104,45) ti BOTO 330) i 
DALL BOUND (2300, 220, 1,222, 2,22 















6 | i | 4, 3) 21 L CLEAR rs CALL CHAR 
S=RRND (5) |: re lhi THEN Sv=e : se IF EA=I THEN FALL DELBP 
GOSUB 67@ 3: A=INT(RNDX15)+1 ITE (#2, #3) 


‘08 (1) =B$&"ALL'YOUR MEN WERE DE 
SSTROYED AND YDU ONLY BCDRED "E 
ISTRS (50) &" PDINTE.! | 


IF A=1 THEN GOSUB a ca 6 
‘OTO 320 ELSE cz@ ! 
FISRRND (5) se IF FIS1 THEN la 
69® 15 ASRRNDCUID):: IF A=1 T 
UHEN GOSUB 650 1: BOTO pr ELSE 

320 
>MS=RRND (5) 1.2) (IF msi THEN Ev=I 
NT (RNDESO) "30 5, GOSUB 670 s 
(G=RRND (8) 3: IF A=1 ‘THEN COSE 
650 1: GOTO 320 ELSE 20 
PSRRND (2) 1: ‘IF P=1 THEN PV=9 = 
GOSUB 580 :: GOSUB 650 È: 
‘TO 20 DI TI iii] 











Jungle Jim.. 





RA AS (2)=B$&"BETTER LUCK NEXT TIM 






































HE," 
A$ (5) =B$&"WANT TO FLAY AGAIN? 
“(XY OR N)" 
TE=i :: GOSUB 1468 
® CALL KEY(9,K, STAT) ss IF NOT (K= 
‘99 DR K=7B) THEN 840 ELSE IF Kk= 
78 THEN STOP 
CALL DELSPRITE(ALL)s: TiMmeE=2 s 
(lc: PV=9 si BDTD 260 n 
® READ TP,FR e DN FR EDTD BBA,B 
99,900,B70 1iFI:0] ii 
RESTORE Pi@ ps GOTO B6@ |, 
CALL SOUND (100, TP, 1, TP+2, 2, TP+ 
3,3)s* DALL SDUND(190, 165, 1,19 
6,1,262,1):: DN TE GOTD 14B89,7 
19 
CALL SDUND (100, TP, 1, TP+2,2, pal 
4,3) 3: CALL SDUND(100,175,1,22 
@,1,262,1):# DN TE GOTO 14B9,7 
10 | i3 
CALL SOUND (100, TP, 1,TP+2,2, TP+ 
4,3):8 CALL SOUND(190, 196,1, 24 
7,1,294, Wise DN TE GOTO 1489,7 
E 10 | 
DATA 262,1, bo, 1,392, 1, 440,1, iL 
66,1, 370, 1,392, 1,550, 1,349,2, 4 
40,2,523,2,587,2,1522,2 | Na 
DATA 494,2,523,2,449,2, 392,3, 
94,3,587,3,659,3, 698,3,554,5,5 
187,3, 494,3 
930 DATA 349,2,440,2,523,2,587 2, 6 
22,2,494, 2, 523,2, 440, 2,262, 35 
39,1, 392,1, 440,1, 466,1 {Ti 
DATA 370, 1,392,1,339,1,262, 1,1 
96,1, 262,1, 196, 1.262,1, 196,1, 2 
62,1,262,1,294,1, 330,1. 
| DATA 349,2, 262,2, 349, 2,262,2,3 
49,2, 262, 2,349, 2, 349,2, 530,2, 2 
ipa, 2, 262,1, 196,1,4,4 iii 
VD=28 re Z$=RPTS ("0", 16): CAL 
L CHARCI40, “"000001010F0909A901 
©101013E200000C80404FCLOceCoco 
Co20190BeR192030") I 
CIS=RPTS ("0",13) Bk" 31FFF1FOS"BR 
PTS("D", 20) Be C*RRPTS(F", 110: 
C2*&=RPTS "0", 7)B"3"BRPTS CF", 1 
BIE"e3"ERPTS ("D", 10) LCO"ERPTS 
(©F*,1B) |! 
I C3$=RPTE("0", 18) LEFCSERPTS (“Pe 
pi did L*CD0oe"LZSE"DeFBFFFBF" 
T=96 st 25104 se XB=RPT&("D", 
12)ss Ye ss CALL CLEAR cs DIS 
PLAY AT(12,1)= "PRESS ANY KEY T 
ANY GRAPHICS DIBP 
SLAYB. ILCHISI | | | 


Rene a FALDA Pa DSS e RR 
sa CARL DL 













































NEXT Ds RA 
SCREEN (2): = CALL CHAR (36, | 








































‘i CALL CHAR(IT6, "800107 1F3FFFFFF 


; FFF10183C7C7EFEFFFF") 

(‘3030 CALL MAGNIFY(4)sr CALL SPRITE( 
#28, 140,16, 10X8, 15X8) ..| 
40 CALL CHARSET 11 FOR Imi TD 14 
(sr DALL COLOR(I,14,1)ss NEXT 1) 
1: DISPLAY ATC, Ps "JUNGLE JI 
se È 

50 BS=RPT8(" ",28) E | 
de CALL CHAR(152, iizi 
BO"RZIEZE) 

AS (1) =B$&"99” ER BREREZSE 

NTS ENEA Eni 
Ti lag il { i 
AS (2) =BS&"YDU MUST Lume OVER T 


SRITANTE 


TO MOVE, Mer HE LEFE pole Falk 
HT ARROW KEYS." 

A$ (3) =B$& "YOU GET 4 MEN, AMD 
OY SCORE POINTS BY GRABBING TH 
E DIAMOND. | LA 
REGGIO, MURI sa TESI 3 GOSUB 
î vati MCHAR (1,11, Da 
DELSERITE (AL >, si ninititi 





} GUY=4 2: 
CALL CHAR (89, pt PRA RENANIA TA 








| OB182ARABSFFFFFFFFFF ") 
FOR JI=1 TO 14 ssa CALL COLOR Ul 
1, 1is NEXT I 
LCALL CHAR (140, “ORO 10FOFOF13162 
AZI"ERPT$ (*"20",5) &"AVEO1CF4DEC 
HEOIAZORBZERA" IRPTS ("9", 120) 
1) CALL'CHAR(128, 79% "010307040808 
4 08070000003C7L70FCFBFOF0E94040 
4098") 
CALL CHAR (33, RPTS (“F", FIVE: 
ALL COLOR(1,1, ds CALL HOHAR( 
1,33 3289) 
CALL Sese LIL LL 
O70ZOIBIO7070701FF7F 1F1FO70301 
‘00FFFFFFFEFCFCFCFI!") 
CALL CHAR (38, "FOFoFoE") 1344 
DATA 7,11 Ssuidae 1,55,19,2,56,B, 6, 
37,9,6,38 | | 
FOR D=i TD 30 STEP 6 
RESTORE 1210 
) CALL HCHAR(9,D+1,32):: FOR I=1 
TO Sis READ A,B,C ra DAL HC 
HAR (A, B+D, Cra NEXT I ; 
NEXT D Vipli 
CALL VOHAR(7,1,32,1 5! DALL VE 
tento, Se 32 3)i: CALL SCREEN(6 
) 


bal 
BASIL 











FOOBOE OFEFFFFFFFFOOOODOFOFCFFF fi 


HE DBSTACLES BY PRESSING “I”... {i 






























8 CALL CHAR(49, "O30307070F 1F7"8R 


i PISCFAIME" preE OFOFHFF* 
A) 
DATA 10,3,41,4, se,4 pe: 
40,1,13,5,42,1. 

call CHAR (44, "91017F130FOZOZO3 
ATATAOZOADA TR ZODIIILAFE B4 FANS 
BB89002910109101918") i 

\CALL CHAR(5B,RPT$("F",16))s= C 
‘ALL HCHAR(11,11,58, 32813) 

FDR D=i TO 32 STEP 4 | 
CALL HCHAR(14,D+2,B88):: CALL H 
ICHAR (14,D, 89): CALL HCHARC14, 
D+3, 90) 1: CALL''HCHAR(14,D+1,91 
)sr NEXT D' il 

FOR F=1 TO be STEP | ; sk RESTOR 
E 12B0 I 

FDR Ii TD 4 a: lilla 
CALL Nadgttti Pera C4D)s: NE 
XT I FIRUiA 


FDR D=1 UIL, DALL H 
CHAR (21, D, BO) e 3 CALL HCHAR (22, 
s$B1]:s CALL HCHARGZ1,Dt1, 82): 
CALL HCHAR (22, D+1,B3) 

CALL HCHAR(23,D,88):: CALL HOH 
AR (24, D, 89) si: DALL HCHAR(Z3, D+ 
1,90) 1: CALL HCHAR (24, D+1, 91): 
NEXT D_! ll 

CALL CHAR (92, "00000101 0FO9APAS 
1010101 3E2000000604C4F DO80I0e 
‘D00020100908192036") ... 

‘CALL MAGNIFY (4) 2: (IF TIMES>I T 
(HEN RETURN 

CALL CHAR (96, "O1@10Z1IFIZ1ZIZOG 
OIOSOTTF 200000 0ALIBRLIBBFRAADE 
BOBIGORCOIDO 402030") 





RETURN (00) IH: 11) 
CALL CHAR (120, XS&"FF") 











MET, 

CALL KEY(0,T, I (IF sw THEN 
Li ili, 

i ii KIjaL 

CALL MCHAR (1, 1,52, 768): 

N 


DA 
3 
cha. 
- 381 
n 


I, REM SIXAKNAIAATIZALTIATITA 
(REM * DUESTIONNAIRE 
REM » BY 

REM * DAVID M. DOUGLAS E 3 
REM #$338%ENTXKEIYIFZZ® 
REM 99°ER VERBION 2.19.1 
REM 3/16/DI 

DPTIDN BABE 1 

DIM N(20) ,Ds (29), AS (160), Re (70 
),R (20,20) 4 
‘DEF U=INT(199/(D+1)). gi i 
DEF Nep+j i ; 
, CALL CLEAR 
PRINT "22% RUESRADRRARE"” TALL 
è su": a... i ’ 


——} Ù 





dt 
habet 


150 CALL CLEAR 
150 GOSUB 3060 


10 REM METEOR " 
8 UB 3220 

20 REM FRANCOMFUTER CLUB A \ TA nas 3 

30 REM TEXAS CLUB TI 99 I 

35 CALL CLEAR 190 NET=O 

40 RESTORE 90 - 200 SHD=D 

rete 220 DEAD=O 


50 READ DUR, NOTE 

70 CALL SOUND (DUR, NOTE, 0) 

80 NEXT I° 

90 DATA 350, 880,330, 988,330, 784, 330, 392, 990, 587 

100. CALL ‘CLEAR 

110 INPUT "VUOI LE ISTRUZIONI ? (Y)":0$ 

120 IF SEG$(0$,1,1)="Y" THEN 140 va DR Fan, i, e) 

130 IF SEG$(0$,1,1)<>"N" THEN 110 ELSE 170 300 CALL COLORt10, 2,5) 

140 GOSUB 4050 510 CALL COLOR(11,2,5) 
320 CALL COLOR(12,11,5) 
330 CALL COLOR(8,14,14) 

METE 0 Q 340 RANDOMIZE 

350 RESTORE 410 


360 FOR I=91 TO 122 


2350 CALL SCREEN(S) 

240 CALL COLOR(1,5,5) 
250 CALL COLOR(3, 16,14) 
260 CALL COLOR(4,16,14) 
270 CALL COLOR(13, 16,1) 
280 CALL COLOR(14,9,1) 








370 1F ((ID9I)K (198) )+((1) 99) #(I<104)) THEN 400 

380 READ A$ 

390 CALL CHAR(I,A$) 

400 NEXT I 

410 DATA FFFFFFEFFFFEFFFF,FFFFFFFFFFFFFFFF,FFFFCSC3CSC3FFFF,FF9999FFFF9999FF,FFE 
7E7C3C3E7E7FF, B0COEOFOFBFFFF7F 

420 DATA 01061E3CFCFAFOFO, 7F7F3F3F1F1FFDF8, EOEOEOFOFBFCFE7F, 8060783C3F1FOFOF, 010 
3070F 1FFFFFFE 

430 DATA 0707070F1F3F7FFE, FEFEFCFCFB8FODF 1F, 1818181918181818, COFOFCFFFCF@DG818, 030 
F3FFF3F1FIBIA 

440 DATA 1818181818181F1F,i818181818189F8F8,FCFOEOCOCOC39FFF, 00808181C397C7FF, 1FO 
7070383E1FBFF 

450 DATA 010204085070E040, 804020100C0E0702, 000000FF 


: ROD REM mono: RR e 
470 CALL HCHAR(23,5 196, 24) 760 CALL'VCHAR(16, 16, 98,7) 
480 CALL HCHAR(24,4, 96) 770 CALL VCHAR(14,23,99,8) 


Ì 
I 


490 CALL HCHAR(24,29,96,2) = 760 CALL VCHAR(14,24,98,4) 
500 CALL HCHAR(24,5,91,24) 790 CALL VCHAR(14,25,98,4) 
510 CALL VCHAR(21,5,97,2) : 800 CALL VCHAR(14, 26, 98,9) 
520 CALL VCHAR(21,5,97,2) 810 CALL VCHAR(14,27,90,2) 
530 CALL VCHAR(21,6,97,2) 820 REM. rin 
540 CALL VCHAR(17,9,97,6) = 850 CALL VCHAR (17,3, 112 
550 CALL VCHAR(20,11,97,3) 840 CALL VCHAR(17,531, 112,3) 
560 CALL VCHAR(20,12,97,3) 850 CALL VCHAR(20,3,99,5) 
570 CALL VCHAR(20,13,97,3) 860 CALL VCHAR(ZO,31,99,5) 
580 CALL VCHAR(20,14,97,3) 870 CALL VCHAR(12,2,112,4) 
590 CALL VCHAR(20,15,97,3) 880 CALL VCHAR(12,32,112,4) 
500 CALL VCHAR(15,18,97,8) 890 CALL VCHAR(16, 2,115) 
610 CALL VCHAR(15,19,97,8) 900 CALL VCHAR(16,32, 116) 
620 CALL VCHAR(18,21,97,5) 910 CALL VCHAR (1132, 113) 
630 CALL VCHAR(22, 22,97) 920 CALL VCHAR(11,32,114) 
640 CALL VCHAR(22, 23,97) 30 CALL VCHAR (15,3, 104) 
550 CALL VCHAR(18,24,97,5) = 940 CALL VCHAR(15,4,105) 
560 CALL VCHAR(18,25,97,5) 950 CALL VCHAR(16,3,106) 
670 CALL VCHAR(16,27,97,7) 760 CALL VCHAR(16,4,107) 
680 CALL VCHAR(16,28,97,7) 970 CALL VEHAR(15,30, 108) 
690 CALL VCHAR(14,6,94,7) 990 CALL VCHAR(15, 31,109) 
700 CALL VCHAR(14,7,98,9) 990 CALL VCHAR(16,30,110) 
710 CALL VCHAR(14,8,98,9) 1000 CALL VCHAR(16, 31, 1il) 
720 CALL VCHAR(14,9,98,3) = 1010 REM lider A 
730 CALL VCHAR(15,11,98,5) ‘020 CALL CHAR(130, "00483410BE964122") 
740 CALL VCHAR(15,12,98,57 1030 CALL CHAR(133, "00003030") 
750 CALL VCHAR(16,15,98,4) 040 CALL CHAR(134, "00000C0C") 


1050 CALL CHAR(137, "000000003030") 
1060 CALL CHAR(138, "000000000C0C") 


1070 CALL HCHAR(24,6,48,4) 





10BO CALL HCHAR(24,25,48,3) 


1090 M=0 
1100 FOR X=28 TO S STEP -1 


1110 CALL SOUND(-500, 250,30,500,30,1000,30,-B,X+2) : 


1120 FOR T=134 TO 137 STEP 3 


o II ATA 


1130 CALL VCHAR(29-X,X,T) 


NEXT T 
MY=29-X 


O CALL KEY(0,k,5) 


CODE=1 

IF S=0 THEN 1210 

IF k=48 THEN 1200 ELSE 1210 
GOTO 2680 

CALL VCHAR(29-X, X,32) 
CALL GCHAR(SO-X, X-1,D) 
IF D<96 THEN 1460 

IF D>99 THEN 1440 
DEAD=DEAD+100 

GOSUB 4200 

IF D=97 THEN 1310 


9 CALL VCHAR(30-X, X-1, 130) 


CALL VCHAR(SO-X,X-1,117) 
GOTO 1370 

Y330-X 

25X-1 


DO IF ((Z=9)x((Y<23)#(Y>16)))THEN 1350 


GOTO 1290 

CALL VCHAR(Y,Z,130) 
CALL VCHAR(Y, 2,95) 
CALL SOUND(-B00,-7,0) 
FOR DELAY=1 TO 200 


NEXT DELAY 

IF (30-X)=23 THEN 3640 
MET=MET+1 

IF MET?=METEOR THEN 3420 
GOTO 1470 

CALL SOUND (-300,-7,0) 


CALL VCHAR(30-X,X-1,130) 
NEXT X 

FOR F=1 TO 10*RND 

M=0 

SHD=0 

MET=MET+1 

IF MET>=METEOR THEN 3420 
X=INT (284RND) 

IF X<S THEN 1520 

FOR Vai TO 23 

CALL SOUND (-500,250,30,500,30,. 
FOR T=133 TO 137 STEP 4 

CALL VEHARIY,X,T) 


1000, 30,-8,27-Y) 


NEXT T 
IF {SHD>0)#(SHD<5)THEN 2970 
MY=Y 
CALL KEY(0,K,S) 

CODE=2 
IF S=0 THEN 1710 
IF K=48 THEN 1650 ELSE 1660 

O GOTO 2680 
IF K=49 THEN 1670 ELSE 1690 

GOTO 2410 
IF K=50 THEN 1690 ELSE 1710 
TS=TS+1 
GOTO 2970 
CALL VCHAR(Y,X,32) 


CALL GCHAR(Y+1,X,D) 
IF D<96 THEN 1960 
IF D=122 THEN 1810 
IF D>116 THEN 1940 
DEAD=DEAD+300 
GOSUB 4200 

GOSUB 4200 


1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 


2220 


2250 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
23540 
2390 
23560 
2370 
2590 
25390 
2400 
2410 
2420 
2430 
2440 
2450 


GOSUB 4200 
GOTO 1840 

CALL VCHAR(Y+1,X,130) 
CALL VCHAR(Y+1,X,32) 
GOTO 1870 

CALL VCHAR(Y+1,X,130,2) 
CALL VCHAR(Y+1,X,32) 
CALL VCHAR(Y+2,X,118) 
CALL HCHAR(11,3,32,29) 
SHD=0 

CALL SOUND(-800,-7,0) 
FOR DELAY=1 TD 200 
NEXT DELAY 

IF (Y+1)=22 THEN 3640 
GOTO 1970 

CALL SOUND(-300,-7,0) 


| 
CALL VCHAR(Y+1,X,130) | n 
NEXT Y |a 
NEXT F Ù 
M=0 I 
FOR X=5 TO 20 dò 


CALL SOUND (-500, 250, 30,500,30, 1000, 
FOR T=133 TO 138 STEP 5 


CALL VCHAR(X-4,X,T) 

NEXT T 

MY=X-4 

CALL KEY(0,K,S) 

CODE=3 

IF S=0 THEN 2100 (iso 


IF K=49 THEN 2090 ELSE 2100 
GOTO 2410 

CALL VCHAR(X-4,X,32) 

CALL GCHAR(X-3,X+1,D) 

IF D<96 THEN 2350 

IF D>98 THEN 2310 
DEAD=DEAD+100 

GOSUB 4200 

IF D=97 THEN 2180 

GOTO 2210 

Y=X-3 

2=X+1 

IF ((2=23)#(Y=22))+(((Z=24)+(Z=25)) 
CALL VCHAR(X-3,X+1,130) 
CALL VCHAR(X-3,X+1,119) 
GOTO 2260 

CALL VCHAR(Y,Z,130) 

CALL VCHAR(Y,Z,98) 

CALL SOUND(-800,-7,0) 

FOR DELAY=1 TO 200 

NEXT DELAY 

IF (X-3)=23 THEN 3640 

GOTO 2340 

CALL SDUND(-300,-7,0) 

CALL VCHAR(X-3,X+1,130) 
NEXT X 

C=10#RND 

M=0 

MET=MET+1 

IF MET>=METEOR THEN 3420 
IF CCI THEN 1100 

IF C<6 THEN 1470 

IF C<=10 THEN 1990 

IF M=i THEN 2420 ELSE 2430 
ON CODE GOTO 1210,1710,2100 
FOR L=1 TO 13 STEP 2 


CALL SOUND (-1000, 10000,L, 3000, 5+L, 6, 59+L) 


CALL VCHAR(15-L,4+L, 120) 


* ((Y<23)#*(Y>17)))THEN 2240. 


2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
24620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
4800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910° 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
? DI 
3070 
3080 


CALL GCHAR(14-L,5+L,0) 
CALL GCHAR(14-L,4+L,R) 
CALL VCHAR(15-L,4+L,32) 
IF Q>127 THEN 2590 


IF R>127 THEN 2590 3570 IF K=84 THEN 3960 
IF (15-L)<MY THEN 2520 ELSE 2540 3580 IF K<83 THEN 3540 
TEST=1 3590 IF K>84 THEN 3540 
GOTO 2590 3600 FOR S=0 TO 30 STEP 2 
IF L=13 THEN 2590 3610 CALL SOUND(10,110#(5+1),5) 
NEXT L 3620 NEXT S 
M=M+1 | 3630 GOTO 3540 
TEST=0 | 3640 FOR R=l TO 10 
ON CODE GOTO 1210,1710,2100 3650 CALL SOUND(100,200,0,-1, 10) 
CALL SOUND (-500,-6,0) 3660 CALL SOUND(100,400,0,-1,10) 
CALL HCHAR(14-L,4+L, 130,2) | 3670 NEXT F 
CALL HEHAR(14-L,4+1,32,2) ‘3680 CALL SUUND(4000,-7,0) 
IF TEST=1 THEN 25640 3690 CALL SCREEN(5) 
IF L=13 THEN 2560 3700 CALL COLOR(9, 2,2) 
M=0 3710 FOR DELAY=1 TO 90 
HITS=HITS+1 3720 NEXT DELAY 
GOSUB 4090 3730 FOR X=7 TO 10 
ON CODE GOTO 1470,1970, 2340 3740 IF X=6 THEN 3800 
IF M=1 THEN 2690 ELSE 2700 3750 CALL COLOR(9, XX) 
ON CODE GOTO 1210,1710,2100 3760 CALL COLOR(11,X,X) 
FOR L=13 TO 1 STEP -2 3770 CALL COLORt10,X,X) 
CALL SOUND(-1000, 10000, 13-L, 5000, 18-L,-6,18-L) 3780 FOR DELAY=1 TO 90 
CALL VCHARCi+L, 16+L, 121) 3790 NEXT DELAY 
CALL GCHAR(L,15+L,U) 3800 NEXT X 
CALL GCHAR(L, 16+L,R) 3810 CALL COLOR(8,16,16) 
CALL VCHAR(1+L, 16+L., 32) | 3820 CALL COLOR(9, 16,16) 
IF Q%127 THEN 2460 ‘3830 CALL COLOR(11,16,16) 
IF R>127 THEN 2660 ‘ 3840 CALL COLOR(10,16,16) 
IF (1+L)<MY THEN 2790 ELSE 2010 3850 FOR DELAY=1 TO 90 
TEST=1 3860 NEXT DELAY 
GOTO 2860 3870 CALL SCREEN(164) 
IF L=1 THEN 2860) 3880 CALL COLOR(1,16,16) 
NEXT L 3890 FOR T=0 TO 30 STEP 2 
M=M+1 , 3900 CALL SOUND(-500,-7,7) 
TEST=0 | 3910 NEXT T 
DN CODE GOTO 1210,1710,2100 | 3920 CALL, CLEAR 
CALL SOUND (500, -6, 0) ‘3930 CALL COLOR(8, 2,16) 
CALL HCHAR(L,15+L, 130,2) : 3940 CALL COLOR(3,2,16) 
CALL HCHAR (L, 1541, 32,2) 3950 CALL COLOR(4,2,16) 
IF TEST=1 THEN 24650 
i 2950 a 
CTSSRITOR *55°  3940 PRINT "LA CITTA” DI NEW YORK PERCOLPA TUA NON ESISTE PIU" 
GOSUB 4090 3970 GOTO 3490 
M=0 3980 FOR S=0 TO 30 STEP 2 
MET=MET+1 3890 CALL SOUND(-50,230-(445),30-S,2300-(40#5) 8) Vet. > 


IF MET>=METEOR THEN 5420 

ON CODE GOTO 1470, 1970, 2340 

IF (TS=10)#(SHD=0)THEN 2960 ELSE 2990 
CALL SQUND (-500, 1000, 0) 

IF TS>=11 THEN 1710 

CALL HCHAR (11,3, 122,29) 

SHD=SHD+1 

IF SHD<4 THEN 1719 

CALL HCHAR(11,3,32,29) 


SHD=0 

GOTO 1710 

PRINT “SITUAZIONE----- SIETE AL CON=TROLLO DEL SISTEMA DIFENSIVODELLA CITTA 
NEW YORK." 

PRINT is "MISSIONE----- DOVETE DIFENDERLA DA UNA PIOGGIA DI METEORE" 

PRINT :: “CONTROLLI---- 1) CANNONE SINISTRO 0) CANN 


ONE DESTRO” 


3081 
3090 
3100 
3105 
3110 
3120 


PRINT “ 2) RAGGIO LASER" 
FOR DELAY=1 TO 5000 

NEXT DELAY 

CALL CLEAR 

GOSUB 4050 


PRINT “ARMI -—-------------------- 


IL CIELO " 
PRINT " 1 EMETTITORE DI RAGGILASER DIFENDONO A OMBRELLOLA CITTA” " 


3130 
3150 


PRINT 31" LIMITI------------------ 


UN MISSILE CONTROLA METEORITE" 
PRINT" NON TUTTE LE VOLTE ILLASER FUNZIONA FERCHE” VIENEDANNEGGIATO 
DALLE METEORITI." 


3160 


3161 
3162 
3165 
3170 
3180 
3190 


3200 
3210 
3220 
3221 
3222 


3223 
3250 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
33650 
3370 
3300 
3390 
3400 
3410 
‘3420 
34350 
3440 
3450 
3460 
3470 
3490 
3490 
3500 
3510 
3920 
3930 
3540 
3550 
3560 


PRINT :: “ENTER per continuare" 


INFUT AA$ 
CALL CLEAR 


------- 2 RAMPE DI MISSILICONTROLLANO 


eg cirio PUD” ESSERE LANCIATOSOLTANTO 


PRINT "IL VOSTRO MISSILE NON TUT=TE LE VOLTE VA A DISTRUGGERELA METEORITE 


PRINT "IL RAGGIO LASER DEV'ESSERE IMPIEGATO CON SAGGEZZA" 
PRINT "SE LA CITTA’ VIENE COLPITAIN PROFONDITA" DALLE METEORELA CENTRALE 
NUCLEARE ESPLODE" 


RETURN 

GOSUB 4050 

PRINT ss "LIVELLI GIOCO 
PRINT :" 1) STORMO LENTO" 
PRINT :" 2) STORMO MEDIO" 


PRINT :" 3) STURMO VELOCE" 


GOSUB 4050 

CALL KEY(0,K,5) 

IF S=0 THEN 3310 

IF K=49 THEN 3350 

IF K=S0 THEN 3370 

IF K= ù. THEN 3390 

IF K<49 THEN 3240 

IF K>S1 THEN 3240 
FOR S=0 TO 30 STEF 2 
CALL SOUND(10,110#(S+1),5) 
NEXT S 

GOTO 3240 

METEOR=50 

GOTO 3400 
METEOR=100 

GOTO 3400 
METEOR=150 

CALL CLEAR 

RETURN 

PRINT "LA CITTA" E SALVA!!" 
CALL COLOR(8,2,1) 
CALL COLOR(3,2,1) 
CALL COLOR(4,2,1) 
PRINT 


PRINT “POPOLAZIONE UCCISA": DEAD 


PRINT 


PRINT "METEORE INTERCETTATE: 1 "sHITS 


PRINT 


4000 NEXT S 
4010 FOR S=0 TO 30 STEP 5 
4020 CALL SOUND (200, 110,5) 
4030 NEXT S 


4040 END 
4050 FOR A=0 TO 30 STEP 5 
4060 CALL SOUND(-99,698,A,1924,A) 
4070 NEXT A 

4080 RETURN 

4090 CALL GCHAR(24,27,8) 
4100 IF S=57 THEN 4130 

4110 CALL HCHAR(24,27,5+1) 
4120 RETURN 

4130 CALL GCHAR(24,26,5) 
4140 CALL HCHAR(24, 27,48) 
4150 CALL HCHAR(24,26,5+1) 
4150 IF 5=57 THEN 4180 

4170 RETURN 

4180 CALL HCHAR(24, 25,49) 
4190 RETURN 

4200 CALL GCHAR(24,7, DEAD) 
4210 IF DEAD=57 THEN 4240 
4220 CALL HCHAR(24,7, DEAD+I) 
4230 RETURN 

4240 CALL GCHAR(24,6,DEADI 
4250 CALL HCHAR(24,7,48) 
4260 CALL HCHAR(24,6,PEADF1) 
4270 RETURN 


PRINT "“FERCENTUALE COLPITE! "HITS*X100/METEDR; "4" 


PRINT 


PRINT “PREMI (5) FER GIOCARE 


CALL KEY (0,K,5) 
IF S=0 THEN 3400 
IF K=83 THEN 40 


(T) PER FINIRE" 


1000 
1100 
1200 
1500 
1400 
1500 
1600 
1700 
1800 
1900 
2000 
2100 
2200 
2400 
2400 
2900 
2600 
2700 
0) 

2800 
2900 
3000 
SI00 
3200 
S300 
35400 
3900 
3600 
3700 
4800 
3900 
4000 
4100 
4200 
43500 
4400 
4500 
4500 
AZDO 
4900 
4900) 
S000 
S100 


CALL CLEAR 
REM ATTENZIONE ALLE VARIAGILI NON CAMBIARLE 


CALL CLEAR 

PRINT srsssrsi” FRANCOMPFUTER CLUE" 
PRINT ss: 

PRINT "NOMI IN ORDINE ALFABETICO"rirti 


FRINT '-----=) 22} Spi) 

PRINT sir 

FOR WAIT=0 TO 800 

NEXT WAIT 

REM NOMI IN ORDINE DI ALFABETO 

CALL CLEAR 

PRINT "FER TERMINARE PREMI ZERO": 1:33 "QUANTI NOMI VUOI "risi: 
INPUT “NUM ":N 

IF_N=0 THEN 5900 

REM IL VALORE DI DIM «) VA STABILITO FRIMA COME MAX. 

DIM A${100) 

REMO CON 10 NOMI OCCUPÀ KE 1,1150; CON 100 NOMI E 1,35005CO0N 1000 NOMI K 3,55 


REM INIZIA IL CICLO DEI NOMI DA ORDINARE 
FOR I=1 TO N 

PRINT "NOME "3 (I)s 

INFUT A$ (I) 

NEXT I 

M=N 

T=M/2 

M=INT(T) 

IF M=0 THEN 5000 

E=N-M 

J=1 

I=J 

L=I+N 

IF A&(I)«=A&{L)THEN 4700 
T$=A4$(1I) i 
A$(I)=A&(L) 

A$ (L)=T$ 

I=1-N 

IF I?=1l THEN 4000 

Jadti 

IF J*kE THEN 35400 

GOTO 3900 

CALL CLEAR 

REM CICLO DI STAMPA CON IL CONTROLLO FER FASSARE ALLO SCHERMO SUCCESSIVO È 


OFO AVER SCRITTO 20 NOMI IN ORDINE 


5200 
9300 
5400 
9900 
600 
9700 
9900 
5900 
6000 


FOR I=1 TO N 

IFO{(I/21)<*INT(1/21)THEN 5700 

PRINT :"FER CONT. FREMI UN TASTO/ ENTER" 
INFUT W$ 

CALL CLEAR 

FRINT AS(I) 

NEXT I 

INFUT AA$ 

GOTO 2100 


100 CALL CLEAR 
159 PRINT * 

200 PRINT" “ 

250 PRINI * 

300 PRINT * * 

350 PRINT * 

400 FOR I=1 TO 13 
45Ù PRINT * " 


1(Z2iK21N 


2 TOTOCALCIO 2° 


Y12K12}1" 


500 CALL SOUND(130,392,15,242,13,659,13) 


590 PRINT * " 
400 NENTI 


610 INPUT "VUOI LE ISTRUZIONI PRENI(Y)(":1$ 


620 IF 1$="Y" THEN 6666 

650 DIN S$(13),N{13) 

200 CALL CLEAR 

250 CALL SCREEN(12} 

900 FOR I=i 10.13 

950 PRINT "PARTITA N.*11 

900 INPUT S$(I) 

950 GOSUB 4750 

1000 N(I)=LEN(S$(1)] 

1050 NEXT I 

1100 CALL CLEAR 

1150 FOR T=1 TO 300 

1200 NEXT T 

1250 INPUT *DOPPIE INSERITE ? ":D 
1500 PRINT 

1350 PRINT 

1400 INPUT “TRIPLE INSERITE ? *:T 
1450 CALL CLEAR 


1500 PRINT *LE COLONNE SONO“; (2*D)#{3%7) 


1550 PRINT 
16t0 PRINT 
1450 PRINT 


1700 PRINT "IL COSTO E° DI LIRE“5{{2*D)#(3*T))4300 


1750 PRINT 

1800 PRINT 

L850 PRINT 

1900 PRINT "LO SVILUPPO 2(PRENI S)* 
1950 CALL KEYC0,K,5) 

2000 IF S=0 THEN 1950 

2050 IF KC>93 THEN 700 

2100 CALL CLEAR 

2150 FDR Li=b TEMO) 

2200 C$=SE68(58(1),11,1) 

2250 FOR 1221 TO N02) 

2300 C$=SE66(C8,1,1)45EG$(58(2),12,1) 
2350 FOR 13=1 TO N13) 

2400 C$=SE68(CS, 1,2)45E6$(98(3),13,1) 
2450 FOR 14=1 TO NA) 

2500 C8=SEG8 (C8,1,3)8SEGS(56(4), 14,1) 
2550 FOR I5=1 TO N(5) 

2600 C$=SEG$(C8,1,4)45E6$(56(5), 15,1) 
2650 FOR I6=1 TO NI6) 

2700 C$=SEG$(C8, 1,5)45EG6(56(6), 16,1) 
2750 FOR 1751 10 N(7) 

2900 C$=SEG$(C8, 1,6)45EG$(56(7),17,11 
2950 FOR [0=1 TO NQ) 

2900 C$=SEG$(C8,1,7)45E6$ (5618), 18,1) 
2950 FOR 1931 TO N{9) 

3000 C6=SEG6(C$,1,9)4EG6 (96(9),19,1) 
3050 FOR I10=1 TO NUO) 


3100 C$=5EG$(C8,1,9)4SEG$(5610),110, 1) 


3159 FOR I11=1 TO NUD) 


3200 C$=5EG8(C6,1,10)&5E68(S$(11),I14,1) 


3200 FOR [1231 T0 N(12) 


3300 C$=5EG$(C$, 1,11) &SEG6(5$(12),112,1) 


3350 FOR 113=1 TO N13) 


3400 C$=5EG6(C$,1,12)45EG5(56/13),113,1) 


3450 PRINT C8,A#1 
3500 Y=ts1 

3550 A=A+ 

3400 IF Y(20 THEN 4050 

3650 PRINT 

3700 PRINT "CONTINUO 2(PREMI 5)* 
3750 CALL KEY(0,K,5) 

3800 1F 5=0 THEN 3750 

3450 IF KC93 THEN 3750 

3900 IF K=83 THEN 3950 

3950 CALL CLEAR 
4000 Y=0 

4050 NEIT 113 
4100 NEXT 112 
4150 NEXT IL 
4200 NEXT 110 
4250 NENT 19 
4300 NEXT 18 
4350 NEXT 17 
4400 NEXT I 
4450 NEXT 15 
4500 WENT 14 
4550 NEIT 13 
4600 NEXT 12 
4650 NEIT Il 
4700 END 

4150 IF 5611) (0"1" THEN 4850 


2 


1 6100 RETURN 


4500. RETURN 

4850 IF S${1) "N" THEN 4950 
4900 RETUAN 

4950 IF S$01)<}"2" THEN 5050 
3000 RETURN 

5050 IF S6(1) "1%" THEN 5150 
5100 RETURN 

9150 IF S$(1)0"12" THEN 5250 
3200 RETURN 

5250 IF S$(1) "11" THEN 5350 
3300 RETURN 

5350 IF S$(1)C>*Y2% THEN 5450 
5400. RETURN 

5450 IF S$([)<>"21" THEN 5550 
5300 RETURN 

9950 IF 5$(1)<)"21" THEN 5590 
2400 RETURN 

5690 IF S$(1)C>"1X2" THEN 5750 
3700 RETURN 

9750 IF S$(1)C>*124" THEN 5650 
5800 RETURN 

d@90 IF S$(1}C0"K12* THEN 5950 
1900 RETURK 

5930 IF S$(11C)“X21° THEN 4050 
4000 RETURN 

4050 IF 5$(1}(5*211" THEN 6150 


biS0 IF S$(1)<>"211" THEN 4250 
6200 RETURN 

6250 CALL SOUND {-500,-3,1) 
6300 FOR T=1 TD 400 

4350 NEXT T 


6400 PRINT “HAI SBAGLIATO" 
h450 FOR T=1 TO 900 

6500 NEST T 

basò GITO 700 

6600 END 
6650 REN 
bbbb CALL CLEAR 


4700 PRINT “IL FROGRAMMA DA LO SVILUPPO DI DGNI SISTEMA ENTERO E NON RIDOTTO DEL 


GIOCO DEL TOTOCALCIO® 


4760 PRINT "NE SPECIFICA IL NUNERO DELLE COLONNE ED IL RELATIVO COSTO PURCHE' SI 
A ESATTA L'IMMISSIONE DEI DATI* 
4600 PRINT “QUESTI VALORI NON SONO CONTROLLATI DAL PROGRANNA NA IL RISULTATO DEL 


LA ELABORAZIONE E' ESATTO* 


6950 PRINT "QUALORA SI SBAGLIASSE AD INTRODURRE I PRONOSTICI €) DA 1 2X SI RICO 
WINCIA DALLA PRIMA PARTITÀ® 


6900 PRINT 


6950 PRINT "AUGURI E BUON 13 * 


4950 FOR I=1 TO 13000 
h970 NEXT I 
7000 GOTO 650 


X 


ISTRUZIONI ALL'USO DEL PROGRAMMA 


______S0FTWARC 


__2 cass. L. 20/000 





Biblioteca di matematica 

Comprende calcoli in serie di Fourier, analisi delle fun- 
zioni, equazioni differenziali ordinarie, conversioni di 
base, scomposizione in fattori primi, funzioni iporboliche 
e calcolo simultaneo IE pon 

Disponibile io inglese, fruncese;iadesce-ed 








. L. 25000 
Speech Editor 
Scoprite lo stimolo che dà la possibilità di generare la voce 
con il computer TI 99/4A. Potete sperimentare ed ascol- 
lare immediatamente parole o frasi intere con il vocabola- 
rio incorporato nel sintetizzatore Solid State Speech”. 
Disponibile per ora solo in inglese. 
Breve descrizione in olandes, francese, tedesco ed italiano, 


Configurazione richiesta: C 


2 cass. L. 2000 
Libreria d’Elettronica 


Un catalogo degli ausili più comunemente usati dagli 
ingegneri oletironici fre cui progettazione filtri, luogo delle 
radici, carta di Smith, circuito agganciato infase e nume- 
rosi altri supporti. : 

Disponibile in olandese, inglese. 


158/000 
BASIC Esteso L 9 \@ | 


Linguaggio di programmazione compatibile con il BASIC 
: e: TI99/4A, conle seguenti aggiunte: righe multidichiara- 
zioni, dichiarazioni 1F-THEN-ELSE (Se-allora-oppure), 
accesso diretto allo schermo, sottoprogrammi BASIC con 
variabili locali, autoavviamento dei programmi su disco, 
facile controllo di fino a 28 sprite con concatenamento 
programmi BASIC, fusione codici, programmi protetti, 
dichiarazioni ON ERROR (Errore in atto) e funzioni Logi- 
che di Boole (AND, OR, NOT 1E, 0, NO - ecc.). 
Disponibile per ora solo in inglese. 
Breve descrizione in olandese, francese, tedesco ed 
italiano. deuefogaze MyLula 


O 
Imparate da soli il BASIC Esteso Ra 
Imparate ad usare il Basic Esteso con questo programma 
d'insegnamento. Un processo sequenziale Vi aiuta ad ap- 
prendere che cosa si può ottenere con questo linguaggio di 
alto livello. LI programma include sette lezioni. + 4 Gioco 


in ifatiando h CASESCE L. 200000 
ra)le 
Basic per principianti ka 


Introduce Il nuovo utente ai concetti della programma- 
zione. loclude otto lezioni separate che complementano la 
sezione «Elementi di Programmazione» del Manuale 
d’Uso. Include anche domande con scelta multipla di ri&- 
poste per assicurare che l’utente afferri i concetti della 
programmazione. 

li cassette 





vb Dia: 











L. 200000 


Gi Modulo Solid State Cartridge E 












Dische I (o) 


DISPONIGILE 








i L. 99 000 

Î Dati sigtistici (Statistics) 

i Svolge div@tgjssimi calcoli statisfierCon la precisione e la 

| rapiditàdiun . Vi Jus€ia più tempo libero per 

| analizzarei risultitagd peplicarli alla Vostra particolare. 
ere utilizzato per analizzare i dati 


| situazione. Può 
i descrittivi,at 
Disponibile per ora in inglese e tedesco. 


Ù . 


Fatturazione L.70'000 


Conserva tutte le informazioni sulla clientela, aggiornate e 
procise, in un unico sistema di facile uso. Voci quali indi- 
rizzo cliente, sconto applicabile, imposte e molte altre in- 
formazioni di fatturazione si controllano ed aggiornano 
fucilmente. Il complesso comprende sette programmi che 
Vi aiutano « tenere registri aggiornati di fatture. A tale 
scopo si richiede il modulo dati statistici 0 quello 
d'archivio personale. 


Inventario  L. 70000 


Permette di aggiornare l'inventario e di seguirne | movi- 

menti. Potete intraprendere una valutazione delle scorte in 

base al costo, al margine di utile o al prezzo. I moduli di 

archivio personale e dati statici Solid State Cartridge vi 

uggiungono le possibilità di classificazione e valutazione 

statistica, Avrete bisogno di uno di questi due moduli. ” 


Lane L. QWo'000 
| Calcolo delle strutture 

Questo programma offre ad ingegneri un sussidio compu- 
terizzato per valutazioni e calcoli complessi. Si dispone di: 
momento d'inerzia, carico dinamico/grado unico di 
libertà, analisi delle sollecitazioni in travi di calcestruzzo, 
ripartizione travature reticolari e a quattro campate. 
Disponibile in olandese, inglese, “ CA ; 


4 CASSEMA L. 10000 
Simulazione di mercato 


In ossa due giocatori si trovano in concorrenza d'affari. 

Scegliote quanta pubblicità fare, quante unità volete pro- 

durte, ecc. ed attendete i risultati. Gli scioperi c i muta- 

menti economici rendono questo gioco istruttivo molto 

realistico. \AALIANO ga . 


2 casse 10 000 


Aiuto alla programmazione I 
Molto a disposizione dei programmatori già pratici degli 
ausili per potenziare il linguaggio Basic TI. Comprende le 
soquenti possibilità: «CATALOGARE DISCHI», DIS- 
PLAY AT», «ACCEPT AT» stampa sullo schermo lettere 
minuscole serie di routine ASCII caratteri definiti 
dall'utente. 

Disponibile per ora solo in inglese. 






















| 
| 
| 
| 
| e uso che Vi permette 
di aiuto quando ne avete 
valente avversario. Potete 
e il computer può persino 
er rigiocarla in un secondo tempo. 
aiuto del maestro internazionale 

to peri zicalyi di scacchi di tutte le età. 
Disponibile in olandese, inglese, fPancese, tedesco e 
italiano. 
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Cassetta 


Divisione LL. 20000 
Cartoni animati, colori e grafica si combinano per inseg- 
nare il significato e i dati fondamentali della divisione. 
Presentazione dei concetti e realizzazione pratica degli 
stessi. Di grande ausilio peri deboli in questa operazione. 
Messa a punto con la Scott, Foresman and Company. Per 
ragazzi dai 6 ai 10 anni 


Munch Man L.35000 -@ 


Manovrate il Munch Man attraverso un dedalo e cercate 

di raggiungere uno stimolatore prima di venire divorati dai 
quattro Hoonos che stanno incalzando il Munch Man. 
Segnate punti collegando i passaggi con un calena continua 
oppure catturando gli astuti Hoonos mentre il Munch Man 


si ricarica con 10 sumolatori. 
® 
Yahtzee L. 200000 


Emozionante gioco di dadi che alla strategia abbina ele- 
menti di fortuna. I giocatori accumulano punti se escono 
certe combinazioni. Perfezionato dalla Milton Bradley 
Company. Ore di divertimento assicurate. Indicato dagli 8 
anni in su. 
Disponibile in olandese, inglese, francese, tedesco ed 

L. 19000 


italiano. 
Prime letture (Early Reading) Dl 


Grafica a colori divertente e voce sintetizzata. Introdu- 
zione e potenziamento dell’abilità nella lettura. Una grande 
esperienza in fatto di apprendimento e un grande diverti- 
mento peri non iniziati alla lettura. Messa a punto dalla TI 
con il personale didattico della Scott, Foresman and 
Company. Indicata anche per gli studenti principianti della 
lingua inglese. 

Disponibile attualmente solo in inglese. 








. olo] 
Questo antico gioco di strategia impegna a fondo anche i 
giocatori più smaliziati. Un impegnativo gioco da scac- 
chiera che s'impara in pochi minuti ma richiede una vita 
per dominarlo. Indicato per gli strateghi di tutte le età. 


Numero magico lL. 22000 


Uno stimolante programma di istruzione in matematica. 
Arricchisce le cognizioni che si hanno e presenta problemi 
di mathematica da risolvere con belle presentazioni a 
colori e colonna sonora. Ricalca la tradizione degli affer- 
matissimi Little Professor* e Dataman* della Texas Instru- 
ments. Validissimo supporto e fonte di divertimento per 
ragazzi dai 6 anni in su. 
Disponibile in olandese, inglese, francese, tedesco, 
italiano (- svedese. 





L. 00000 


Gestione bilancio familiare 


Facilita l'impostazione del bilancio, tiene conto delle ent- 
rate e le uscite,’ 


ca 








L.h9000 Laae 
Musicista - Composizioni musicali 


Programma per composizioni musicali che permette 

anche al profano di creare della musica con computer dis- 
ponendo semplicemente le note su un pentagramma musi- 
cale elettronico. Un'introduzione meravigliosa alla musica 
in casa sia per ragazzi che per adulti. Programma di facile 
uso che permette di comporre i propri pezzi. Si raccomanda 
l’uso di un sistema memoria dati. 


Moltiplicazione 1 i 


Si usano colori, grafica e suono per l’insegnamento teorico 
e per la pratica. Il modulo spiega il significato della molti- 
plicazione e presenta i dati fondamentali di questa opera- 
zione. Se l’utente ottiene scarsi risultati nelle sessioni pra- 
tiche, riceve automaticamente aiuto. Messo a punto con la 
Scott, Foresman and Company. Per ragazzi da 8 ad ll anni. 
Disponibile per ora in inglese. 


LL 20000 


L. 20000 arl 
Filetto (Connect Four) 


Un impegnativo gioco di strategia verticale. I giocatori de- 
vono riuscire a collocare quattro contrassegni consecutivi 
in senso verticale, orizzontale o diagonale. Perfezionato 
dalla Milton Bradley Company. Indicato dai 10 anni in su. 
Disponibile ora in olandese, inglese, francese, tedesco, 
italiano o svedese. 


L34000 


paRoniie per ora solo in i inglese e tedesco. 


Li 20( 000 | 


Addizione/Sottrazione 2 


Secondo della serie di programmi didattici sull’addizione 
la sottrazione, che presenta problemi e tecniche più diffi- 
cili rispetto all’Addizione/Sottrazione 1. Messo a punto 


con la Scott, Foresman and Company. Indicato per i prin- 
cipianui. 


Disponibile in inglese. 
L. 200000 EG 
Addizione/Sottrazione 1 


Si tratta del modulo iniziale di una serie messa a punto con 
la Scott, Foresman und Company, fra le più importanti 
case editrici di libri di testo. Insegna i primi elementi di 
aritmetica e dà compiti di ripetizione. Indicato per i princi- 
pianti. 

Disponibile in inglese. 

Dal primo trimestre 1983 anche in olandese, francese, 
tedesco, italiano e svedese. 


L ; \ 0 000 i O, (e 
Il Serpente (Hustle) 
Indirizzate un oggetto a forma di serpe contro gli obiettivi 
cercando di evitare l'avversario, il bordo dello schermo.. 
persino Voi stesso! Questo gioco a riumo incalzante per 
uno o due giocatori richiede prontezza di riflessi e coordi- 
namento fra occhio e mano. Indicato dai 10 anni in su. 


PURBLICAZICNI E MATERTALE DISPONIBILE NEL CLUB 


RIVISTA 99er , Americana ( mese di novembre ) lire T1.- 000 


TI 99 LEARNING di Towsend ( in inglese ) 160 paa:.......16,000 


174,6 p0431I), 


IMIGINOISIE VW) ONCE 


IMPARIAMO A PROGRAMMARE IN TI BASIC- Oltre 90 esercizi 
risolti e proposti. Introduzione ai giochi con il 


TI 99/4A , Oltre ben 10 programmi completi, grafica, al 

colore,suono. Tutte le funzioni del TI BASIC arric= sa 

chite con molti esempi.....(in.italiano)...... laureata 16.000 
MANUALE IN ASSEMBLER- n INGlese) sail + JOE 
MANUALE FifENnic GASIC IN ITALIANO . . 19/000 


BASIC IN COMPUTER ; 8 lezioni su cassetta (4) in italiano 
è il computer che vi insegna il computer. Un corso inte= 
rattivo per procedere e capire speditamente.......00,20.000 


L'EXTENDIC BASIC ; 7 Lezioni su 4 cassette, più un gioco 
realizzato con gli Sprite,velocissimo. Un corso comple= 
to per capire questo potente linguaggio........ O 20,000. . 


* Masdae 1 ‘(nupalo: Cont ProetaMMAnE (N AssemBLen tod LA MinlitiMotyY- 40000 
ESTRATTI VARI dalle varie riviste. In fotocopia chiedeteci 

ciò che vi serve. Ci pagate solo il costo delle fotoco= 

pie* Cioè lire 100 caduna. 

Disponibili articoli su la Consolle in generale, sui FILE, 

sull' assebler, sulla Minimemory, sul sintetizzatore vocale» 

Minima evasione circa 20 pagine + 400 lire del francobollo. 


E' DISPONIBILE DA ALCUNI GIORNI IL MANUALE DEL TMS 9900 CHE 
TUTTI MI RICHIEDONO. BREVE DESCRIZIONE IN ITALIANO SU 8 
PAGINE CON SCHEMI ETC. E ALTRE 25 PAGINE IN INGLESE CON TUT= 
TO IL RESTO. ALLEGATA ANCHE SU 10 PAGINE LA REFERENZE CARD 
DELL'EDITOR ASSEMBLER. IL TUTTO COSTA 8.000 LIRE. 
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